home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Assassins - Ultimate CD Games Collection 4
/
Assassins 4 (1999)(Weird Science).iso
/
adventures_2
/
curse
/
curse.z5
(
.txt
)
< prev
next >
Wrap
Z-code for Z-machine
|
1977-12-31
|
229KB
|
16,576 lines
Resident data ends at 8f80, program starts at 8f80, file ends at 37d38
Starting analysis pass at address 8f7d
End of analysis pass, low address = 8f80, high address = 28b44
[Start of code]
Main routine R0001, 0 locals
CALL_2N R0316 (#d4)
CALL_2N R0316 (#d3)
CALL_2N R0316 (#d2)
CALL_VN R0150 (#01,#ea)
CALL_1N R0248
CALL_VN R0150 (#05,#e7)
CALL_VN R0150 (#08,#97)
CALL_VN R0150 (#09,#c9)
CALL_1N R0251
CALL_VN R0150 (#1c,#0192)
CALL_1N R0157
PRINT "
It's become a matter of pride now not to give up. That tourist map of Paris
must be up here somewhere in all this clutter, even if it has been five years
since your last trip. And it's your own fault. It looks as if your
great-grandfather was the last person to tidy up these lofts...
"
CALL_1N R0029
CALL_1N R0198
CALL_1N R0024
RTRUE
Routine R0002, 7 locals
L0001: STORE L03,#00
DEC L03
L0002: JL L03,#09 [FALSE] L0003
INC L03
LOADB L01,L03 -> -(SP)
STOREB G6a,L03,(SP)+
JUMP L0002
L0003: NEW_LINE
CALL_1N R0025
PRINT_CHAR '>'
STOREB L00,#01,#00
CALL_1N R0159
READ L00,L01 -> Gef
LOADB L01,#01 -> L02
JE L02,#00 [FALSE] L0004
PRINT "I beg your pardon?
"
JUMP L0001
L0004: LOADW L01,#01 -> L04
JE L04,"o","oops" [FALSE] L0005
JUMP L0016
L0005: JE L04,"undo" [FALSE] L0012
JE G00,#0121,#011f [FALSE] L0006
PRINT "[For some reason, "undo" has completely broken down
here. Spooky!]
"
JUMP L0001
L0006: JE G29,#00 [FALSE] L0007
PRINT "[Your interpreter does not provide "undo". Sorry!]
"
JUMP L0001
L0007: JE G29,#01 [FALSE] L0008
JUMP L0010
L0008: JE G7f,#01 [FALSE] L0009
PRINT "[Can't "undo" twice in succession. Sorry!]
"
JUMP L0001
L0009: RESTORE_UNDO -> L03
JE L03,#00 [FALSE] L0011
L0010: PRINT ""Undo" failed. [Perhaps your interpreter does not
provide it.]
"
L0011: JUMP L0001
L0012: SAVE_UNDO -> L03
STORE G7f,#00
STORE G29,#02
JE L03,#ffff [FALSE] L0013
STORE G29,#00
L0013: JE L03,#00 [FALSE] L0014
STORE G29,#01
L0014: JE L03,#02 [FALSE] L0015
PRINT "
"
PRINT_OBJ G00
PRINT "
[Previous turn undone]
"
CALL_2N R0041 (#2d)
STORE G41,#01
STORE G7f,#01
JUMP L0001
L0015: RET L02
L0016: JE G68,#00 [FALSE] L0017
PRINT "Sorry, that can't be corrected.
"
JUMP L0001
L0017: JE L02,#01 [FALSE] L0018
PRINT "Think nothing of it.
"
JUMP L0001
L0018: JG L02,#02 [FALSE] L0019
PRINT ""Oops" can only correct a single word.
"
JUMP L0001
L0019: LOADW L01,#03 -> L05
LOADW L01,#04 -> L06
STORE L03,#00
DEC L03
L0020: JL L03,#09 [FALSE] L0021
INC L03
LOADB G6a,L03 -> -(SP)
STOREB L01,L03,(SP)+
JUMP L0020
L0021: MUL #02,G68 -> -(SP)
SUB (SP)+,#01 -> L04
STOREW L01,L04,L05
INC L04
STOREW L01,L04,L05
RET L02
Routine R0003, 10 locals
JE G53,#01 [FALSE] L0003
STORE L05,#00
L0001: JL L05,#08 [FALSE] L0002
LOADW G77,L05 -> -(SP)
STOREW L00,L05,(SP)+
INC L05
JUMP L0001
L0002: STORE G53,#00
RTRUE
L0003: JE G7a,#01 [FALSE] L0006
STORE G7a,#00
STORE L05,#00
L0004: JL L05,#40 [FALSE] L0005
LOADB G58,L05 -> -(SP)
STOREB G48,L05,(SP)+
INC L05
JUMP L0004
L0005: NEW_LINE
JUMP L0007
L0006: CALL_VN R0002 (G47,G48)
L0007: STORE G7c,#01
LOADB G48,#01 -> G5b
STORE G5d,#01
STORE G4b,G03
L0008: STORE G5a,G5d
CALL_1S R0020 -> G5c
JE G5c,"g" [FALSE] L0009
STORE G5c,"again"
L0009: JE G5c,"again" [FALSE] L0013
LOADB G59,#01 -> -(SP)
JE (SP)+,#00 [FALSE] L0010
PRINT "You can hardly repeat that.
"
JUMP L0006
L0010: STORE L05,#00
L0011: JL L05,#40 [FALSE] L0012
LOADB G59,L05 -> -(SP)
STOREB G48,L05,(SP)+
INC L05
JUMP L0011
L0012: JUMP L0007
L0013: JE G5c,"again" [TRUE] L0015
STORE L05,#00
L0014: JL L05,#40 [FALSE] L0015
LOADB G48,L05 -> -(SP)
STOREB G59,L05,(SP)+
INC L05
JUMP L0014
L0015: JE G5c,#00 [FALSE] L0016
STORE G7c,#0b
JUMP L0055
L0016: LOADB G5c,#06 -> -(SP)
AND (SP)+,#01 -> -(SP)
JE (SP)+,#00 [FALSE] L0028
STORE G5a,G5d
CALL_VS R0011 (#01,#00,#00) -> L08
JE L08,#03e8 [FALSE] L0017
JUMP L0007
L0017: JE L08,#00 [TRUE] L0018
STOREW L00,#00,#13
STOREW L00,#01,#01
STOREW L00,#02,L08
JUMP L0075
L0018: JE G4b,G03 [FALSE] L0021
STORE L06,#02
L0019: JG L06,G5b [TRUE] L0021
CALL_1S R0020 -> L05
JE L05,"xcomma" [FALSE] L0020
JUMP L0022
L0020: INC L06
JUMP L0019
L0021: STORE G7c,#0b
JUMP L0055
L0022: SUB G5a,#01 -> L06
JE L06,#01 [FALSE] L0023
PRINT "You can't begin with a comma.
"
JUMP L0006
L0023: STORE G5a,#01
STORE G74,#01
CALL_VS R0011 (G03,G00,#06) -> L08
JE L08,#03e8 [FALSE] L0024
JUMP L0007
L0024: JE L08,#00 [FALSE] L0025
PRINT "You seem to want to talk to someone, but I can't see
whom.
"
JUMP L0006
L0025: TEST_ATTR L08,#04 [TRUE] L0026
TEST_ATTR L08,#1f [TRUE] L0026
PRINT "You can't talk to "
CALL_2N R0290 (L08)
PRINT ".
"
JUMP L0006
L0026: JE G5a,L06 [TRUE] L0027
PRINT "To talk to someone, try "someone, hello" or some such.
"
JUMP L0006
L0027: CALL_2N R0022 (L08)
ADD L06,#01 -> G5d
STORE G4b,L08
JUMP L0008
L0028: LOADB G5c,#06 -> -(SP)
AND (SP)+,#02 -> G55
LOADB G5c,#07 -> -(SP)
SUB #ff,(SP)+ -> L05
LOADW #00,#07 -> -(SP)
LOADW (SP)+,L05 -> L01
LOADB L01,#00 -> -(SP)
SUB (SP)+,#01 -> L03
STORE G6f,"it"
STORE G70,G71
STORE L02,#00
L0029: JG L02,L03 [TRUE] L0055
MUL L02,#08 -> -(SP)
ADD #01,(SP)+ -> -(SP)
ADD L01,(SP)+ -> L04
STORE G76,#00
STORE G66,#00
STORE G65,#00
STORE G60,#00
ADD G5d,#01 -> G5a
STORE G62,#01
L0030: JG G62,#06 [TRUE] L0054
STOREW G61,G62,#00
LOADB L04,G62 -> L07
ADD G62,#01 -> L09
STORE G74,#08
JG L09,#06 [TRUE] L0031
LOADB L04,L09 -> G74
L0031: JE G74,#00 [FALSE] L0033
STORE L09,G65
JG L07,#07 [TRUE] L0032
INC L09
L0032: LOADB L04,#00 -> -(SP)
JL L09,(SP)+ [TRUE] L0033
STORE G74,#08
L0033: JG L07,#07 [FALSE] L0037
ADD #03e8,L07 -> -(SP)
STOREW G61,G62,(SP)+
JG G5a,G5b [FALSE] L0035
JE G66,#00 [FALSE] L0034
LOADB L04,#00 -> -(SP)
JL G65,(SP)+ [FALSE] L0034
STORE G66,G62
STORE G67,L07
L0034: JE G66,#00 [FALSE] L0035
JUMP L0054
L0035: JG G5a,G5b [TRUE] L0036
CALL_1S R0018 -> -(SP)
JE L07,(SP)+ [TRUE] L0036
JUMP L0054
L0036: JUMP L0053
L0037: LOADB L04,#00 -> -(SP)
JE G65,(SP)+ [FALSE] L0050
JG G5a,G5b [TRUE] L0041
CALL_1S R0020 -> L08
JE L08,"then","xcomma" [FALSE] L0038
STORE G7a,#01
SUB G5a,#01 -> G7b
JUMP L0041
L0038: STORE L09,#00
L0039: JL L09,#08 [FALSE] L0040
LOADW G61,L09 -> -(SP)
STOREW G63,L09,(SP)+
INC L09
JUMP L0039
L0040: STORE G64,G62
STORE G7c,#02
JUMP L0054
L0041: JE G60,#01 [FALSE] L0043
STORE G5a,G78
STORE L07,G79
CALL_VS R0004 (L00,L07) -> L08
JE L08,#03e8 [FALSE] L0042
JUMP L0007
L0042: JE L08,#00 [FALSE] L0043
JUMP L0054
L0043: JE G66,#00 [TRUE] L0044
PRINT "("
CALL_VN R0005 (G66,#01)
PRINT ")
"
L0044: LOADB L04,#00 -> -(SP)
STOREW L00,#01,(SP)+
LOADB L04,#07 -> -(SP)
STOREW L00,#00,(SP)+
JG G65,#00 [FALSE] L0045
LOADW L00,#02 -> -(SP)
JL (SP)+,#02 [TRUE] L0045
LOADW L00,#02 -> -(SP)
CALL_2N R0022 ((SP)+)
L0045: STORE G68,#00
JE G76,#00 [TRUE] L0048
JE G4b,G03 [FALSE] L0048
STORE G53,#01
STORE L05,#00
L0046: JL L05,#08 [FALSE] L0047
LOADW L00,L05 -> -(SP)
STOREW G77,L05,(SP)+
INC L05
JUMP L0046
L0047: STOREW L00,#00,#02
STOREW L00,#01,#01
STOREW L00,#02,G76
PRINT "(first taking "
CALL_2N R0290 (G76)
PRINT ")
"
L0048: JE G7a,#01 [FALSE] L0049
STORE G5a,G7b
JUMP L0075
L0049: RTRUE
L0050: CALL_VS R0004 (L00,L07) -> L08
JE L08,#03e8 [FALSE] L0051
JUMP L0007
L0051: JE L08,#00 [FALSE] L0052
JUMP L0054
L0052: JE G5e,#01 [FALSE] L0053
ADD G65,#02 -> -(SP)
STOREW L00,(SP)+,#00
STOREW G61,G62,#00
INC G65
L0053: INC G62
JUMP L0030
L0054: INC L02
JUMP L0029
L0055: JE G4b,G03 [TRUE] L0056
CALL_2S R0021 (G5d) -> G51
STORE G5a,G5d
CALL_1S R0020 -> G50
STORE G4c,#4a
STORE G4d,#01
STORE G4e,G4b
STORE G4b,G03
RTRUE
L0056: JE G7c,#01 [FALSE] L0057
PRINT "I didn't understand that sentence.
"
STORE G68,#01
L0057: JE G7c,#02 [FALSE] L0060
PRINT "I only understood you as far as wanting to "
STORE L09,#00
L0058: JL L09,#08 [FALSE] L0059
LOADW G63,L09 -> -(SP)
STOREW G61,L09,(SP)+
INC L09
JUMP L0058
L0059: STORE G62,G64
CALL_VN R0005 (#00,#01)
PRINT ".
"
L0060: JE G7c,#03 [FALSE] L0061
PRINT "You can't see any such thing.
"
STORE G68,G69
L0061: JE G7c,#04 [FALSE] L0062
PRINT "You seem to have said too little!
"
L0062: JE G7c,#05 [FALSE] L0063
PRINT "You aren't holding that!
"
STORE G68,G69
L0063: JE G7c,#06 [FALSE] L0064
PRINT "You can't use multiple objects with that verb.
"
L0064: JE G7c,#07 [FALSE] L0065
PRINT "You can only use multiple objects once on a line.
"
L0065: JE G7c,#08 [FALSE] L0066
PRINT "I'm not sure what ""
PRINT_ADDR G6f
PRINT "" refers to.
"
L0066: JE G7c,#09 [FALSE] L0067
PRINT "You excepted something not included anyway!
"
L0067: JE G7c,#0a [FALSE] L0068
PRINT "You can only do that to something animate.
"
L0068: JE G7c,#0b [FALSE] L0069
PRINT "That's not a verb I recognise.
"
L0069: JE G7c,#0c [FALSE] L0070
PRINT "That's not something you need to refer to in the course
of this game.
"
L0070: JE G7c,#0d [FALSE] L0071
PRINT "You can't see ""
PRINT_ADDR G6f
PRINT "" ("
CALL_2N R0290 (G70)
PRINT ") at the moment.
"
L0071: JE G7c,#0e [FALSE] L0072
PRINT "I didn't understand the way that finished.
"
L0072: JE G7c,#0f [FALSE] L0073
PRINT "He's the bafflement of Scotland Yard, the Flying
Squad's despair:
For when they reach the scene of crime - Macavity's not there!
And neither is Austin, at the moment.
"
L0073: JE G7c,#10 [FALSE] L0074
PRINT "Aunt Jemima is in the Potting Room.
"
L0074: JUMP L0006
L0075: JG G5a,G5b [FALSE] L0076
RTRUE
L0076: CALL_1S R0020 -> L05
JE L05,"then" [TRUE] L0077
JE L05,"xcomma" [FALSE] L0093
L0077: JG G5a,G5b [FALSE] L0078
LOADB G58,#01 -> -(SP)
SUB (SP)+,#01 -> -(SP)
STOREB G58,#01,(SP)+
STORE G7a,#00
RTRUE
L0078: JE G4b,G03 [FALSE] L0079
STORE L06,#00
JUMP L0080
L0079: SUB G5d,#01 -> L06
L0080: ADD L06,#01 -> G7d
SUB G5a,#02 -> G7e
CALL_1S R0020 -> L05
JE L05,"again","g" [FALSE] L0087
STORE L05,#00
L0081: JL L05,L06 [FALSE] L0082
MUL #02,L05 -> -(SP)
ADD (SP)+,#01 -> -(SP)
LOADW G48,(SP)+ -> -(SP)
MUL #02,L05 -> -(SP)
ADD (SP)+,#01 -> -(SP)
STOREW G58,(SP)+,(SP)+
MUL #02,L05 -> -(SP)
ADD (SP)+,#02 -> -(SP)
LOADW G48,(SP)+ -> -(SP)
MUL #02,L05 -> -(SP)
ADD (SP)+,#02 -> -(SP)
STOREW G58,(SP)+,(SP)+
INC L05
JUMP L0081
L0082: STORE L05,G7d
L0083: JG L05,G7e [TRUE] L0084
MUL #02,L05 -> -(SP)
LOADW G48,(SP)+ -> -(SP)
MUL #02,L06 -> -(SP)
ADD #02,(SP)+ -> -(SP)
STOREW G58,(SP)+,(SP)+
MUL #02,L05 -> -(SP)
SUB (SP)+,#01 -> -(SP)
LOADW G48,(SP)+ -> -(SP)
MUL #02,L06 -> -(SP)
ADD #01,(SP)+ -> -(SP)
STOREW G58,(SP)+,(SP)+
INC L05
INC L06
JUMP L0083
L0084: STORE L05,G5a
L0085: JG L05,G5b [TRUE] L0086
MUL #02,L05 -> -(SP)
LOADW G48,(SP)+ -> -(SP)
MUL #02,L06 -> -(SP)
ADD #02,(SP)+ -> -(SP)
STOREW G58,(SP)+,(SP)+
MUL #02,L05 -> -(SP)
SUB (SP)+,#01 -> -(SP)
LOADW G48,(SP)+ -> -(SP)
MUL #02,L06 -> -(SP)
ADD #01,(SP)+ -> -(SP)
STOREW G58,(SP)+,(SP)+
INC L05
INC L06
JUMP L0085
L0086: STOREB G58,#01,L06
STORE G7a,#01
RTRUE
JUMP L0088
L0087: DEC G5a
L0088: STORE L05,#00
L0089: JL L05,L06 [FALSE] L0090
MUL #02,L05 -> -(SP)
ADD (SP)+,#01 -> -(SP)
LOADW G48,(SP)+ -> -(SP)
MUL #02,L05 -> -(SP)
ADD (SP)+,#01 -> -(SP)
STOREW G58,(SP)+,(SP)+
MUL #02,L05 -> -(SP)
ADD (SP)+,#02 -> -(SP)
LOADW G48,(SP)+ -> -(SP)
MUL #02,L05 -> -(SP)
ADD (SP)+,#02 -> -(SP)
STOREW G58,(SP)+,(SP)+
INC L05
JUMP L0089
L0090: STORE L05,G5a
L0091: JG L05,G5b [TRUE] L0092
MUL #02,L05 -> -(SP)
LOADW G48,(SP)+ -> -(SP)
MUL #02,L06 -> -(SP)
ADD #02,(SP)+ -> -(SP)
STOREW G58,(SP)+,(SP)+
MUL #02,L05 -> -(SP)
SUB (SP)+,#01 -> -(SP)
LOADW G48,(SP)+ -> -(SP)
MUL #02,L06 -> -(SP)
ADD #01,(SP)+ -> -(SP)
STOREW G58,(SP)+,(SP)+
INC L05
INC L06
JUMP L0091
L0092: STOREB G58,#01,L06
STORE G7a,#01
RTRUE
L0093: STORE G7c,#02
JUMP L0055
Routine R0004, 6 locals
STORE G5e,#00
STORE L05,#00
L0001: CALL_1S R0020 -> L04
DEC G5a
JE L04,"it","them" [FALSE] L0002
STORE G6f,L04
STORE G70,G71
JE G71,#00 [FALSE] L0002
STORE G7c,#08
RET #00
L0002: JE L04,"him" [FALSE] L0003
STORE G6f,L04
STORE G70,G72
JE G72,#00 [FALSE] L0003
STORE G7c,#08
RET #00
L0003: JE L04,"her" [FALSE] L0004
STORE G6f,L04
STORE G70,G73
JE G73,#00 [FALSE] L0004
STORE G7c,#08
RET #00
L0004: JE L04,"the" [FALSE] L0005
INC G5a
JUMP L0001
L0005: STORE G75,#00
JE L04,"a","an","any" [FALSE] L0006
INC G5a
STORE G75,#01
L0006: JE L04,"either" [FALSE] L0007
INC G5a
STORE G75,#01
L0007: JE L01,#07 [FALSE] L0008
CALL_2S R0021 (G5a) -> G51
CALL_1S R0020 -> G50
ADD G65,#02 -> -(SP)
STOREW L00,(SP)+,#01
INC G65
STOREW G61,G62,#01
JUMP L0041
L0008: STORE G5f,#00
JE L04,"cards" [FALSE] L0009
STORE L04,"all"
STORE G5f,#1b
L0009: JE L04,"rods" [FALSE] L0010
STORE L04,"all"
STORE G5f,#12
L0010: JE L04,"books" [FALSE] L0011
STORE L04,"all"
STORE G5f,#23
L0011: JE L04,"everythin","both","all" [FALSE] L0029
JL L01,#02 [FALSE] L0012
STORE G7c,#06
RET #00
L0012: JL L01,#06 [TRUE] L0013
STORE G7c,#06
RET #00
L0013: INC G60
JG G60,#02 [FALSE] L0014
STORE G7c,#07
RET #00
L0014: JE G60,#01 [FALSE] L0015
STORE G78,G5a
STORE G79,L01
CALL_2N R0007 (G00)
L0015: JE G60,#02 [FALSE] L0021
JE L01,#02 [FALSE] L0017
JE G00,#0c [FALSE] L0016
CALL_2N R0007 (G00)
JUMP L0017
L0016: GET_PARENT G03 -> -(SP)
CALL_2N R0007 ((SP)+)
L0017: JE L01,#03 [FALSE] L0018
CALL_2N R0007 (G4b)
L0018: JE L01,#04 [FALSE] L0019
CALL_2N R0007 (G4b)
LOADW L00,#03 -> -(SP)
GET_PARENT (SP)+ -> -(SP)
JE (SP)+,G4b [FALSE] L0019
LOADW L00,#03 -> -(SP)
CALL_2N R0009 ((SP)+)
L0019: JE L01,#05 [FALSE] L0020
LOADW L00,#03 -> -(SP)
CALL_2N R0007 ((SP)+)
L0020: JE G5f,#00 [TRUE] L0021
CALL_2N R0010 (G5f)
L0021: INC G5a
L0022: CALL_1S R0020 -> L04
JE L04,"the","of" [FALSE] L0023
JUMP L0022
L0023: JE L04,"rods" [FALSE] L0024
CALL_2N R0010 (#12)
JUMP L0022
L0024: JE L04,"cards" [FALSE] L0025
CALL_2N R0010 (#1b)
JUMP L0022
L0025: JE L04,"books" [FALSE] L0026
CALL_2N R0010 (#23)
JUMP L0022
L0026: JE L04,"except" [FALSE] L0027
STORE L04,"but"
L0027: JE L04,"but" [FALSE] L0028
STORE L05,#02
JUMP L0001
L0028: DEC G5a
JUMP L0049
L0029: STORE G68,G5a
JE L01,#01 [TRUE] L0036
CALL_VS R0011 (G00,G4b,L01) -> L02
JE L02,#03e8 [FALSE] L0030
RET L02
L0030: JE L02,#00 [FALSE] L0031
CALL_1S R0006 -> G7c
RET #00
L0031: JE L02,#01 [FALSE] L0032
ADD G65,#02 -> -(SP)
STOREW L00,(SP)+,#00
INC G65
STOREW G61,G62,#00
RET #01
L0032: JE L01,#06 [FALSE] L0033
TEST_ATTR L02,#04 [TRUE] L0033
STORE G7c,#0a
RET #00
L0033: JE L05,#00 [FALSE] L0034
ADD G65,#02 -> -(SP)
STOREW L00,(SP)+,L02
INC G65
STOREW G61,G62,L02
L0034: JE L05,#01 [FALSE] L0035
CALL_2N R0008 (L02)
L0035: JE L05,#02 [FALSE] L0036
CALL_2S R0009 (L02) -> L03
JE G60,#01 [TRUE] L0036
JE L03,#00 [TRUE] L0036
STORE G7c,L03
RET #00
L0036: JE L01,#01 [FALSE] L0041
CALL_VS R0011 (G4b,G00,L01) -> L02
JE L02,#03e8 [FALSE] L0037
RET L02
L0037: JE L02,#00 [FALSE] L0038
CALL_1S R0006 -> G7c
RET L02
L0038: GET_PARENT L02 -> L04
JE L04,G4b [TRUE] L0040
JE G53,#01 [FALSE] L0039
STORE G69,G68
STORE G7c,#05
RET #00
L0039: STORE G76,L02
L0040: ADD G65,#02 -> -(SP)
STOREW L00,(SP)+,L02
INC G65
STOREW G61,G62,L02
L0041: CALL_1S R0020 -> L04
CALL_VS R0016 (L02,L04) -> -(SP)
JE #00,(SP)+ [TRUE] L0042
JUMP L0041
L0042: JE L04,"and","xcomma" [FALSE] L0048
CALL_1S R0020 -> L04
DEC G5a
JE L04,"and","xcomma" [FALSE] L0043
INC G5a
L0043: JL L01,#02 [FALSE] L0044
STORE G7c,#06
RET #00
L0044: JL L01,#06 [TRUE] L0045
STORE G7c,#06
RET #00
L0045: JE L05,#00 [FALSE] L0046
STORE L05,#01
L0046: JE G5e,#00 [FALSE] L0047
STOREW G4f,#00,#01
STOREW G4f,#01,L02
DEC G65
STORE G5e,#01
L0047: JUMP L0001
L0048: DEC G5a
L0049: RET #01
Routine R0005, 6 locals
JE L00,#00 [FALSE] L0003
STORE L02,G5c
STORE L00,#01
STORE L05,#01
JE L02,"inventory" [FALSE] L0001
PRINT "take an inventory"
JUMP L0003
L0001: JE L02,"in" [FALSE] L0002
PRINT "enter"
JUMP L0003
L0002: PRINT_ADDR L02
L0003: SUB G62,L01 -> L03
STORE L04,L00
L0004: JG L04,L03 [TRUE] L0010
JE L05,#01 [FALSE] L0005
PRINT_CHAR ' '
L0005: LOADW G61,L04 -> L02
JE L02,#00 [FALSE] L0006
PRINT "those things"
JUMP L0009
L0006: JE L02,#01 [FALSE] L0007
PRINT "that"
JUMP L0009
L0007: JL L02,#03e8 [TRUE] L0008
SUB L02,#03e8 -> -(SP)
CALL_2S R0019 ((SP)+) -> L02
PRINT_ADDR L02
JUMP L0009
L0008: CALL_2N R0290 (L02)
L0009: STORE L05,#01
INC L04
JUMP L0004
L0010: RTRUE
Routine R0006, 3 locals
STORE G69,G68
DEC G5a
CALL_1S R0020 -> L01
STORE L02,#03
JE L01,G6f [FALSE] L0001
STORE L02,#0d
L0001: GET_PARENT G4b -> L00
TEST_ATTR L00,#11 [FALSE] L0002
CALL_VS R0016 (L00,L01) -> -(SP)
JE (SP)+,#01 [FALSE] L0002
STORE L02,#0c
L0002: JE L01,"austin","cat" [FALSE] L0003
STORE L02,#0f
L0003: JE L01,"aunt","jemima" [FALSE] L0004
STORE L02,#10
L0004: RET L02
Routine R0007, 2 locals
STORE G5e,#01
STOREW G4f,#00,#00
GET_CHILD L00 -> L01 [TRUE] L0001
L0001: JE L01,#00 [TRUE] L0004
TEST_ATTR L01,#01 [TRUE] L0002
TEST_ATTR L01,#02 [TRUE] L0002
CALL_2N R0008 (L01)
L0002: GET_SIBLING L01 -> L01 [TRUE] L0003
L0003: JUMP L0001
L0004: RTRUE
Routine R0008, 3 locals
LOADW G4f,#00 -> L01
JE L01,#3f [FALSE] L0001
STORE G4a,#01
RTRUE
L0001: STORE L02,#01
L0002: JG L02,L01 [TRUE] L0004
LOADW G4f,L02 -> -(SP)
JE L00,(SP)+ [FALSE] L0003
RTRUE
L0003: INC L02
JUMP L0002
L0004: INC L01
STOREW G4f,L01,L00
STOREW G4f,#00,L01
RTRUE
Routine R0009, 5 locals
LOADW G4f,#00 -> L01
STORE L04,#00
STORE L02,#01
L0001: JG L02,L01 [TRUE] L0005
LOADW G4f,L02 -> -(SP)
JE L00,(SP)+ [FALSE] L0004
STORE L03,L02
L0002: JG L03,L01 [TRUE] L0003
ADD L03,#01 -> -(SP)
LOADW G4f,(SP)+ -> -(SP)
STOREW G4f,L03,(SP)+
INC L03
JUMP L0002
L0003: DEC L01
STOREW G4f,#00,L01
RET L04
L0004: INC L02
JUMP L0001
L0005: STORE L04,#09
RET L04
Routine R0010, 4 locals
L0001: LOADW G4f,#00 -> L01
STORE L02,#01
L0002: JG L02,L01 [TRUE] L0004
LOADW G4f,L02 -> L03
TEST_ATTR L03,L00 [TRUE] L0003
CALL_2N R0009 (L03)
JUMP L0001
L0003: INC L02
JUMP L0002
L0004: RTRUE
Routine R0011, 9 locals
STORE G6d,#00
STORE G6c,#00
STORE G6e,G5a
CALL_2N R0014 (L00)
CALL_2N R0014 (L01)
ADD G6e,G6d -> G5a
JE G6c,#00 [FALSE] L0001
INC G5a
RFALSE
L0001: JG G6e,G5b [TRUE] L0005
JE G6c,#01 [FALSE] L0002
LOADW G6b,#00 -> L04
RET L04
L0002: JG G5a,G5b [TRUE] L0005
JE G74,#08 [FALSE] L0003
CALL_1S R0020 -> L04
DEC G5a
JE L04,"and","xcomma","then" [TRUE] L0003
RFALSE
L0003: JG G74,#08 [FALSE] L0005
CALL_1S R0018 -> -(SP)
JE G74,(SP)+ [TRUE] L0004
DEC G5a
RFALSE
L0004: DEC G5a
L0005: JE G6c,#01 [FALSE] L0006
LOADW G6b,#00 -> L04
L0006: JG G6c,#01 [FALSE] L0007
CALL_2S R0012 (L02) -> L04
L0007: JE L04,#00 [TRUE] L0009
JE G66,#00 [FALSE] L0008
STORE G66,G62
L0008: STOREW G61,G62,L04
RET L04
L0009: JG G6e,G5b [FALSE] L0010
JUMP L0027
L0010: JE L02,#06 [FALSE] L0011
PRINT "Who"
JUMP L0012
L0011: PRINT "Which"
L0012: PRINT " do you mean, "
SUB G6c,#01 -> L05
STORE L04,#00
L0013: JL L04,G6c [FALSE] L0016
LOADW G6b,L04 -> L06
CALL_2N R0290 (L06)
SUB L05,#01 -> -(SP)
JL L04,(SP)+ [FALSE] L0014
PRINT ", "
L0014: SUB L05,#01 -> -(SP)
JE L04,(SP)+ [FALSE] L0015
PRINT " or "
L0015: INC L04
JUMP L0013
L0016: PRINT "?
"
L0017: CALL_VS R0002 (G57,G58) -> L08
LOADW G58,#01 -> L03
JE L03,"all","both","everythin" [FALSE] L0021
JL L02,#02 [TRUE] L0020
JG L02,#05 [TRUE] L0020
STORE L04,#00
L0018: JG L04,L05 [TRUE] L0019
LOADW G6b,L04 -> L06
ADD L04,#01 -> -(SP)
STOREW G4f,(SP)+,L06
INC L04
JUMP L0018
L0019: ADD L05,#01 -> -(SP)
STOREW G4f,#00,(SP)+
RTRUE
L0020: PRINT "Sorry, you can only have one item here. Which one
exactly?
"
JUMP L0017
L0021: JE L03,"short","long","watch" [TRUE] L0022
LOADB L03,#06 -> L05
AND L05,#01 -> -(SP)
JE #00,(SP)+ [TRUE] L0022
CALL_VN R0458 (G47,G57)
CALL_VN R0458 (G48,G58)
RET #03e8
L0022: LOADB G48,#01 -> L07
ADD L08,L07 -> -(SP)
STOREB G48,#01,(SP)+
ADD L07,L08 -> L06
L0023: JG L06,G6e [FALSE] L0024
SUB L06,L08 -> -(SP)
CALL_VN R0013 (L06,G48,(SP)+)
DEC L06
JUMP L0023
L0024: STORE L06,#01
L0025: JG L06,L08 [TRUE] L0026
SUB L06,#01 -> -(SP)
ADD G6e,(SP)+ -> -(SP)
CALL_VN R0013 ((SP)+,G58,L06)
INC L06
JUMP L0025
L0026: RET #03e8
L0027: JE L02,#06 [FALSE] L0028
PRINT "Whom"
JUMP L0029
L0028: PRINT "What"
L0029: PRINT " do you want"
JE G4b,G03 [TRUE] L0030
PRINT " "
CALL_2N R0290 (G4b)
L0030: PRINT " to "
CALL_VN R0005 (#00,#01)
PRINT "?
"
CALL_VS R0002 (G57,G58) -> L08
LOADW G58,#01 -> L03
JE L03,"short","long","watch" [TRUE] L0031
LOADB L03,#06 -> L05
AND L05,#01 -> -(SP)
JE #00,(SP)+ [TRUE] L0031
CALL_VN R0458 (G47,G57)
CALL_VN R0458 (G48,G58)
RET #03e8
L0031: LOADB G48,#01 -> L07
JE G66,#00 [FALSE] L0034
STORE L06,#01
L0032: JG L06,L08 [TRUE] L0033
SUB L06,#01 -> -(SP)
ADD G6e,(SP)+ -> -(SP)
CALL_VN R0013 ((SP)+,G58,L06)
INC L06
JUMP L0032
L0033: JUMP L0037
L0034: STORE L06,#01
L0035: JG L06,L08 [TRUE] L0036
ADD G6e,L06 -> -(SP)
CALL_VN R0013 ((SP)+,G58,L06)
INC L06
JUMP L0035
L0036: CALL_2S R0019 (G67) -> -(SP)
STOREW G58,#01,(SP)+
CALL_VN R0013 (G6e,G58,#01)
INC L08
L0037: ADD L08,L07 -> -(SP)
STOREB G48,#01,(SP)+
RET #03e8
Routine R0012, 7 locals
SUB G6c,#01 -> L02
STORE L03,#00
LOADW G6b,#00 -> L04
STORE L01,#00
L0001: JG L01,L02 [TRUE] L0010
LOADW G6b,L01 -> L05
TEST_ATTR L05,#01 [TRUE] L0009
STORE L06,L05
L0002: GET_PARENT L06 -> L06
JE L06,G00,G4b,#00 [FALSE] L0002
JE L00,#00 [FALSE] L0003
JE L06,G00 [FALSE] L0003
INC L03
STORE L04,L05
L0003: JE L00,#01 [FALSE] L0004
GET_PARENT L05 -> -(SP)
JE (SP)+,G4b [FALSE] L0004
INC L03
STORE L04,L05
L0004: JE L00,#02 [FALSE] L0005
JE L06,G00 [FALSE] L0005
INC L03
STORE L04,L05
L0005: JE L00,#03 [FALSE] L0006
GET_PARENT L05 -> -(SP)
JE (SP)+,G4b [FALSE] L0006
INC L03
STORE L04,L05
L0006: JE L00,#04 [FALSE] L0007
GET_PARENT L05 -> -(SP)
JE (SP)+,G4b [FALSE] L0007
INC L03
STORE L04,L05
L0007: JE L00,#05 [FALSE] L0008
GET_PARENT L05 -> -(SP)
JE (SP)+,G4b [FALSE] L0008
INC L03
STORE L04,L05
L0008: JE L00,#06 [FALSE] L0009
TEST_ATTR L05,#04 [FALSE] L0009
INC L03
STORE L04,L05
L0009: INC L01
JUMP L0001
L0010: JE L03,#01 [TRUE] L0011
JE G75,#01 [FALSE] L0012
L0011: RET L04
L0012: TEST_ATTR L04,#20 [FALSE] L0013
RET L04
L0013: RET #00
Routine R0013, 5 locals
MUL L00,#02 -> -(SP)
SUB (SP)+,#01 -> L03
MUL L02,#02 -> -(SP)
SUB (SP)+,#01 -> L04
PUSH L04
INC L04
LOADW L01,(SP)+ -> -(SP)
PUSH L03
INC L03
STOREW G48,(SP)+,(SP)+
LOADW L01,L04 -> -(SP)
STOREW G48,L03,(SP)+
RTRUE
Routine R0014, 3 locals
JE L00,#00 [FALSE] L0001
RTRUE
L0001: JE L00,G00 [FALSE] L0002
CALL_2N R0014 (#01)
L0002: GET_CHILD L00 -> L00 [TRUE] L0003
L0003: JE L00,#00 [TRUE] L0016
JG G6e,G5b [FALSE] L0004
CALL_VN R0015 (L00,#01)
JUMP L0011
L0004: STORE G5a,G6e
CALL_1S R0017 -> L01
JE L01,#01 [FALSE] L0005
JE G71,L00 [FALSE] L0005
CALL_VN R0015 (G71,#01)
L0005: JE L01,#02 [FALSE] L0006
JE G72,L00 [FALSE] L0006
CALL_VN R0015 (G72,#01)
L0006: JE L01,#03 [FALSE] L0007
JE G73,L00 [FALSE] L0007
CALL_VN R0015 (G73,#01)
L0007: CALL_VS R0016 (L00,L01) -> -(SP)
JE #00,(SP)+ [FALSE] L0008
JUMP L0011
L0008: STORE L02,#00
L0009: CALL_VS R0016 (L00,L01) -> -(SP)
JE #00,(SP)+ [TRUE] L0010
CALL_1S R0020 -> L01
INC L02
JUMP L0009
L0010: CALL_VN R0015 (L00,L02)
L0011: GET_CHILD L00 -> -(SP) [TRUE] L0012
L0012: JE (SP)+,#00 [TRUE] L0014
TEST_ATTR L00,#08 [FALSE] L0014
TEST_ATTR L00,#0a [TRUE] L0013
TEST_ATTR L00,#09 [TRUE] L0014
L0013: CALL_2N R0014 (L00)
L0014: GET_SIBLING L00 -> L00 [TRUE] L0015
L0015: JUMP L0003
L0016: RTRUE
Routine R0015, 2 locals
JL L01,G6d [FALSE] L0001
RTRUE
L0001: JG L01,G6d [FALSE] L0002
STORE G6d,L01
STORE G6c,#00
L0002: PUSH G6c
INC G6c
STOREW G6b,(SP)+,L00
RTRUE
Routine R0016, 5 locals
JE L00,#00 [FALSE] L0001
RFALSE
L0001: GET_PROP_ADDR L00,#01 -> L02
GET_PROP_ADDR L00,#01 -> -(SP)
STORE Gef,(SP)+
JZ Gef [TRUE] L0002
GET_PROP_LEN Gef -> Gef
L0002: PUSH Gef
DIV (SP)+,#02 -> -(SP)
SUB (SP)+,#01 -> L03
STORE L04,#00
L0003: JG L04,L03 [TRUE] L0005
LOADW L02,L04 -> -(SP)
JE L01,(SP)+ [FALSE] L0004
RTRUE
L0004: INC L04
JUMP L0003
L0005: RFALSE
Routine R0017, 1 local
CALL_1S R0020 -> L00
JE L00,"it","them" [FALSE] L0001
RET #01
L0001: JE L00,"him" [FALSE] L0002
RET #02
L0002: JE L00,"her" [FALSE] L0003
RET #03
L0003: JE L00,#00 [FALSE] L0004
RFALSE
L0004: LOADB L00,#06 -> -(SP)
AND (SP)+,#80 -> -(SP)
JE (SP)+,#00 [FALSE] L0005
RFALSE
L0005: RET L00
Routine R0018, 2 locals
CALL_1S R0020 -> L01
JE L01,#00 [FALSE] L0001
RFALSE
L0001: LOADB L01,#06 -> L00
AND L00,#08 -> -(SP)
JE (SP)+,#00 [FALSE] L0002
RFALSE
L0002: LOADB L01,#08 -> -(SP)
RET (SP)+
Routine R0019, 2 locals
STORE L01,#63d7
L0001: JE #01,#01 [FALSE] L0003
LOADW L01,#01 -> -(SP)
JE L00,(SP)+ [FALSE] L0002
LOADW L01,#00 -> -(SP)
RET (SP)+
L0002: ADD L01,#04 -> L01
JUMP L0001
L0003: STORE L01,#63d7
PRINT "<Adjective not found>"
RET L01
Routine R0020, 3 locals
LOADB G48,#01 -> -(SP)
JG G5a,(SP)+ [FALSE] L0001
INC G5a
RFALSE
L0001: MUL G5a,#02 -> -(SP)
SUB (SP)+,#01 -> L00
INC G5a
LOADW G48,L00 -> L01
JE L01,#00 [FALSE] L0003
MUL G5a,#04 -> -(SP)
SUB (SP)+,#03 -> L02
LOADB G48,L02 -> -(SP)
LOADB G47,(SP)+ -> L00
JE L00,#2c [FALSE] L0002
STORE L01,"xcomma"
L0002: JE L00,#2e [FALSE] L0003
STORE L01,"then"
L0003: RET L01
Routine R0021, 10 locals
MUL L00,#04 -> -(SP)
ADD (SP)+,#01 -> L01
LOADB G48,L01 -> L02
ADD L02,G47 -> L04
SUB L01,#01 -> -(SP)
LOADB G48,(SP)+ -> L05
JE L05,#01 [FALSE] L0003
LOADB L04,#00 -> L03
JL L03,#61 [TRUE] L0003
JG L03,#74 [TRUE] L0003
SUB L03,#61 -> L03
INC L03
JE L03,#04,#06,#07 [FALSE] L0001
RFALSE
L0001: JE L03,#0a,#0d,#11 [FALSE] L0002
RFALSE
L0002: RET L03
L0003: JL L05,#04 [TRUE] L0004
STORE L06,#03e8
L0004: JE L05,#03 [FALSE] L0005
STORE L06,#64
L0005: JE L05,#02 [FALSE] L0006
STORE L06,#0a
L0006: JE L05,#01 [FALSE] L0007
STORE L06,#01
L0007: STORE L07,#00
STORE L03,#00
SUB L05,#01 -> L05
STORE L03,#00
L0008: JG L03,L05 [TRUE] L0020
LOADB L04,L03 -> L09
JE L09,#30 [FALSE] L0009
STORE L08,#00
JUMP L0019
L0009: JE L09,#31 [FALSE] L0010
STORE L08,#01
JUMP L0019
L0010: JE L09,#32 [FALSE] L0011
STORE L08,#02
JUMP L0019
L0011: JE L09,#33 [FALSE] L0012
STORE L08,#03
JUMP L0019
L0012: JE L09,#34 [FALSE] L0013
STORE L08,#04
JUMP L0019
L0013: JE L09,#35 [FALSE] L0014
STORE L08,#05
JUMP L0019
L0014: JE L09,#36 [FALSE] L0015
STORE L08,#06
JUMP L0019
L0015: JE L09,#37 [FALSE] L0016
STORE L08,#07
JUMP L0019
L0016: JE L09,#38 [FALSE] L0017
STORE L08,#08
JUMP L0019
L0017: JE L09,#39 [FALSE] L0018
STORE L08,#09
JUMP L0019
L0018: RFALSE
L0019: MUL L06,L08 -> -(SP)
ADD L07,(SP)+ -> L07
DIV L06,#0a -> L06
INC L03
JUMP L0008
L0020: JG L05,#03 [FALSE] L0021
STORE L07,#2710
L0021: RET L07
Routine R0022, 1 local
TEST_ATTR L00,#04 [FALSE] L0003
CALL_2S R0023 (L00) -> -(SP)
JE (SP)+,#01 [FALSE] L0001
STORE G72,L00
JUMP L0002
L0001: STORE G73,L00
L0002: JUMP L0004
L0003: STORE G71,L00
L0004: RTRUE
Routine R0023, 1 local
JE L00,#85,#ed,#d1 [FALSE] L0001
RFALSE
L0001: JE L00,#0122 [FALSE] L0002
RFALSE
L0002: JE L00,#0163,#016b,#0195 [FALSE] L0003
RFALSE
L0003: RTRUE
Routine R0024, 5 locals
STORE L00,#10
L0001: JL L00,#19 [FALSE] L0002
CALL_VN R0150 (L00,#019e)
INC L00
JUMP L0001
L0002: STORE L00,#01
DEC L00
L0003: JL L00,#64 [FALSE] L0004
INC L00
RANDOM L00 -> L01
JUMP L0003
L0004: JE G36,#00 [FALSE] L0005
RANDOM #14 -> -(SP)
SUB (SP)+,#0a -> G36
JUMP L0004
L0005: JE G37,#00 [FALSE] L0006
RANDOM #14 -> -(SP)
SUB (SP)+,#0a -> G37
JUMP L0005
L0006: JE G05,#00 [FALSE] L0064
L0007: STORE G4d,#00
STORE G4e,#00
STORE G4c,#00
CALL_2N R0003 (G49)
STORE G54,G53
STORE G53,#00
JE G4b,#77 [FALSE] L0008
STORE L00,#75
GET_PARENT L00 -> L00
JE L00,#77 [FALSE] L0008
STORE G4b,#75
L0008: JE G4b,#0d,#9d [FALSE] L0009
LOADW G49,#00 -> G4c
CALL_1N R0220
JUMP L0059
L0009: JE G4b,#85 [FALSE] L0013
LOADW G49,#02 -> G4d
LOADW G49,#03 -> G4e
LOADW G49,#00 -> G4c
JE G4c,#0f [FALSE] L0010
JE G4d,#84 [TRUE] L0011
L0010: JE G4c,#0e [FALSE] L0012
JE G4e,#84 [FALSE] L0012
L0011: PRINT ""I can't give you those, I'm using them!"
(This is plainly not true, but you know how it is with aunts.)
"
JUMP L0059
L0012: PRINT "Aunt Jemima has never done what you suggested at the
best of times. This is not the best of times.
"
JUMP L0059
L0013: JE G4b,#bd,#01aa [FALSE] L0014
LOADW G49,#00 -> G4c
CALL_1N R0220
JUMP L0059
L0014: JE G4b,#4e [FALSE] L0017
LOADW G49,#00 -> G4c
TEST_ATTR "painting of Mad Isaac Meldrewe",#06 [TRUE] L0015
GET_PARENT "painting of Mad Isaac Meldrewe" -> -(SP)
JE (SP)+,#0139 [FALSE] L0015
CALL_1N R0220
JUMP L0016
L0015: PRINT "A breeze ripples the canvas of the unanchored painting,
but that's all.
"
L0016: JUMP L0059
L0017: JE G4b,#75 [FALSE] L0018
LOADW G49,#02 -> G4d
LOADW G49,#03 -> G4e
LOADW G49,#00 -> G4c
CALL_1N R0145
JUMP L0059
L0018: JE G4b,#0179 [FALSE] L0019
LOADW G49,#02 -> G4d
LOADW G49,#03 -> G4e
LOADW G49,#00 -> G4c
CALL_1N R0116
JUMP L0059
L0019: JE G4b,#0126 [FALSE] L0020
PRINT "I can see you've never had a cat.
"
JUMP L0059
L0020: JE G4b,#016d [FALSE] L0026
TEST_ATTR "Old Evans",#19 [TRUE] L0021
PRINT ""Just a minute, I'm doing my form."
"
JUMP L0025
L0021: PRINT "He looks at you in a hypnotic daze,"
LOADW G49,#02 -> G4d
LOADW G49,#03 -> G4e
LOADW G49,#00 -> G4c
JE G4c,#0e [FALSE] L0022
JE G4d,G03 [FALSE] L0022
JE G4e,#016f [TRUE] L0023
L0022: JE G4c,#0f [FALSE] L0024
JE G4e,G03 [FALSE] L0024
JE G4d,#016f [FALSE] L0024
L0023: INSERT_OBJ "Crescent Moon",G03
PUT_PROP "Old Evans",#02,S754
PRINT " and before you can say "How heartless I am" he
obediently hands you the Moon.
"
CALL_2N R0040 (#1e)
JUMP L0025
L0024: PRINT " unable to follow your perfectly clear instruction.
"
L0025: JUMP L0059
L0026: JE G4b,#0154 [FALSE] L0029
TEST_ATTR "Homer",#19 [FALSE] L0027
PRINT "Homer is far too busy composing Book XIV of the Iliad.
"
JUMP L0028
L0027: PRINT "Homer is asleep.
"
L0028: JUMP L0059
L0029: JE G4b,#01c2 [FALSE] L0031
LOADW G49,#00 -> -(SP)
JE (SP)+,#7d [FALSE] L0030
CALL_1N R0130
JUMP L0059
L0030: PRINT "The slave doesn't seem to notice."
JUMP L0059
L0031: JE G4b,G03 [TRUE] L0032
CALL_2N R0291 (G4b)
PRINT " has better things to do.
"
JUMP L0059
L0032: JE G4a,#01 [FALSE] L0033
STORE G4a,#00
PRINT "(taking the first sixteen objects only)
"
L0033: STORE L04,#00
JE G4c,#00 [TRUE] L0034
STORE L04,#01
L0034: JE G4c,#00 [FALSE] L0035
LOADW G49,#00 -> G4c
L0035: STORE G55,#00
JE G4c,#15,#16,#2b [FALSE] L0036
STORE G55,#01
L0036: JE G4c,#2c,#29,#2a [FALSE] L0037
STORE G55,#01
L0037: JE G4c,#27,#28,#26 [FALSE] L0038
STORE G55,#01
L0038: JE G4c,#49,#47,#48 [FALSE] L0039
STORE G55,#01
L0039: JE G4c,#32,#33 [FALSE] L0040
STORE G55,#01
L0040: JL G4c,#89 [TRUE] L0041
JE G1f,#00 [FALSE] L0041
PRINT "You can't do that.
"
CALL_2N R0041 (#26)
STORE G55,#01
JUMP L0059
L0041: JE G06,#0a [FALSE] L0044
JE G4c,#3d [FALSE] L0042
JUMP L0052
L0042: JE G4c,#43 [FALSE] L0043
JUMP L0052
L0043: JE G4c,#18 [FALSE] L0044
JUMP L0052
L0044: JE G06,#08,#0a [FALSE] L0052
JE G55,#00 [FALSE] L0052
JE G4c,#13 [FALSE] L0045
JUMP L0052
L0045: JE G4c,#02 [FALSE] L0046
JUMP L0052
L0046: JE G4c,#09 [FALSE] L0047
JUMP L0052
L0047: JE G4c,#17 [FALSE] L0048
JUMP L0052
L0048: JE G4c,#01 [FALSE] L0049
JUMP L0052
L0049: JE G4c,#5b [FALSE] L0050
JUMP L0052
L0050: JE G4c,#46,#4e [FALSE] L0051
JUMP L0052
L0051: PRINT "You seem unable to concentrate sufficiently.
"
JUMP L0059
L0052: JE L04,#00 [FALSE] L0053
LOADW G49,#01 -> L00
LOADW G49,#02 -> G4d
LOADW G49,#03 -> G4e
L0053: JE L04,#00 [TRUE] L0054
STORE L00,#02
L0054: CLEAR_ATTR "Prow of the Lady Magdalena",#19
STORE G52,#00
JE L00,#00 [FALSE] L0055
CALL_VN R0026 (#00,#00,G4c)
L0055: JG L00,#00 [FALSE] L0059
JE G4d,#00 [TRUE] L0056
CALL_VN R0026 (G4d,G4e,G4c)
L0056: JE G4d,#00 [FALSE] L0059
STORE G52,#01
LOADW G4f,#00 -> L01
JE L01,#00 [FALSE] L0057
PRINT "Nothing to do!
"
JUMP L0007
L0057: STORE L02,#01
DEC L02
L0058: JL L02,L01 [FALSE] L0059
INC L02
LOADW G4f,L02 -> L03
PRINT_OBJ L03
PRINT ": "
CALL_VN R0026 (L03,G4e,G4c)
JUMP L0058
L0059: JE G53,#01 [FALSE] L0060
STORE G55,#01
L0060: JE G05,#00 [FALSE] L0063
JE G55,#00 [FALSE] L0063
CALL_1N R0031
JE G2b,#01 [FALSE] L0061
CALL_2N R0042 (G2d)
L0061: JE G2b,#02 [FALSE] L0062
SUB G01,G2c -> -(SP)
CALL_2N R0042 ((SP)+)
L0062: STORE G2d,#00
STORE G2c,G01
L0063: JUMP L0006
L0064: JE G2a,#01 [FALSE] L0065
SET_TEXT_STYLE BOLDFACE
L0065: PRINT "
***"
JE G05,#01 [FALSE] L0066
PRINT " You have died "
L0066: JE G05,#02 [FALSE] L0067
PRINT " You have won "
L0067: JE G05,#03 [FALSE] L0068
PRINT " You have missed the point entirely "
L0068: JE G05,#04 [FALSE] L0069
PRINT " You have disembodied the entire universe "
L0069: JE G05,#05 [FALSE] L0070
PRINT " You have been transported to Australia "
L0070: JE G05,#06 [FALSE] L0071
PRINT " You have been annihilated by a temporal paradox "
L0071: JE G05,#07 [FALSE] L0072
PRINT " You have become a constellation "
L0072: JE G05,#08 [FALSE] L0073
PRINT " You have been imprisoned as a terrorist "
L0073: JE G05,#09 [FALSE] L0074
PRINT " You have been checkmated "
L0074: PRINT "***
"
JE G2a,#01 [FALSE] L0075
SET_TEXT_STYLE ROMAN
L0075: CALL_1N R0160
JE G1e,#01 [FALSE] L0076
CALL_1N R0170
L0076: PRINT "
Would you like to RESTART, RESTORE a saved game, give the FULL score for that
game"
JE G05,#02 [FALSE] L0077
PRINT ", see some suggestions for AMUSING things to do"
L0077: PRINT " or QUIT?
"
L0078: PRINT_CHAR '?'
PRINT_CHAR ' '
STOREB G47,#01,#00
CALL_1N R0159
READ G47,G48 -> Gef
LOADW G48,#01 -> L00
JE L00,"quit" [FALSE] L0079
QUIT
L0079: JE L00,"q" [FALSE] L0080
QUIT
L0080: JE L00,"restart" [FALSE] L0081
RESTART
L0081: JE L00,"restore" [FALSE] L0082
CALL_1N R0166
JUMP L0076
L0082: JE L00,"fullscore" [FALSE] L0083
CALL_1N R0163
JUMP L0076
L0083: JE G05,#02 [FALSE] L0084
JE L00,"amusing" [FALSE] L0084
NEW_LINE
CALL_1N R0455
JUMP L0076
L0084: JE L00,"full" [FALSE] L0085
NEW_LINE
CALL_1N R0163
JUMP L0076
L0085: JE L00,"undo" [FALSE] L0090
JE G29,#00 [FALSE] L0086
PRINT "[Your interpreter does not provide "undo". Sorry!]
"
JUMP L0076
L0086: JE G29,#01 [FALSE] L0087
JUMP L0088
L0087: RESTORE_UNDO -> L00
JE L00,#00 [FALSE] L0089
L0088: PRINT ""Undo" failed. [Perhaps your interpreter does not
provide it.]
"
L0089: JUMP L0076
L0090: PRINT "Please answer RESTART, RESTORE, FULL"
JE G05,#02 [FALSE] L0091
PRINT ", AMUSING"
L0091: PRINT " or QUIT.
"
JUMP L0078
Routine R0025, 0 locals
JE G2f,#ffff [TRUE] L0001
CALL_2N R0043 (G2f)
STORE G2f,#ffff
L0001: RTRUE
Routine R0026, 3 locals
STORE G4d,L00
STORE G4e,L01
STORE G4c,L02
JE G55,#01 [FALSE] L0001
JUMP L0006
L0001: JE G00,#00 [TRUE] L0005
JE G00,#0c [TRUE] L0002
GET_PROP G00,#05 -> L00
JUMP L0004
L0002: GET_PARENT G03 -> -(SP)
JE (SP)+,#56 [FALSE] L0003
GET_PROP "Chimney",#05 -> L00
JUMP L0004
L0003: GET_PROP G00,#05 -> L00
L0004: JE L00,#ffff [TRUE] L0005
CALL_VS L00 -> -(SP)
JE (SP)+,#00 [TRUE] L0005
RTRUE
L0005: JE G4d,#00 [TRUE] L0006
GET_PROP G4d,#05 -> L00
JE L00,#ffff [TRUE] L0006
CALL_VS L00 -> -(SP)
JE (SP)+,#00 [TRUE] L0006
RTRUE
L0006: LOADW #6191,L02 -> L01
CALL_VS L01 -> Gef
RTRUE
Routine R0027, 2 locals
STORE L01,G00
GET_PROP L01,#06 -> L00
JE L00,#ffff [FALSE] L0001
JUMP L0002
L0001: CALL_VS L00 -> -(SP)
JE (SP)+,#00 [TRUE] L0002
RTRUE
L0002: STORE L01,#00
LOADW G49,#01 -> L00
JE L00,#00 [TRUE] L0003
STORE L01,G4d
L0003: JE L01,#00 [FALSE] L0004
RFALSE
L0004: GET_PROP L01,#06 -> L00
JE L00,#ffff [FALSE] L0005
RFALSE
L0005: CALL_VS L00 -> L00
RET L00
Routine R0028, 2 locals
STORE L01,G00
JE L01,#00 [FALSE] L0001
RFALSE
L0001: GET_PROP L01,#06 -> L00
JE L00,#ffff [FALSE] L0002
RFALSE
L0002: CALL_VS L00 -> L00
RET L00
Routine R0029, 1 local
JE G2a,#01 [FALSE] L0001
SET_TEXT_STYLE BOLDFACE
L0001: PRINT_PADDR S001
JE G2a,#01 [FALSE] L0002
SET_TEXT_STYLE ROMAN
L0002: PRINT "
An Interactive Diversion
Copyright (c) 1993/4 by Graham Nelson. New players should type "help".
"
PRINT "Release "
LOADW #00,#01 -> -(SP)
AND (SP)+,#03ff -> -(SP)
PRINT_NUM (SP)+
PRINT " for Acorn User / Serial number "
STORE L00,#12
DEC L00
L0003: JL L00,#17 [FALSE] L0004
INC L00
LOADB #00,L00 -> -(SP)
PRINT_CHAR (SP)+
JUMP L0003
L0004: PRINT "
Compiled by Inform v"
PRINT "1258"
PRINT " / Interpreter "
LOADB #00,#1e -> -(SP)
PRINT_NUM (SP)+
PRINT " Version "
LOADB #00,#1f -> -(SP)
PRINT_CHAR (SP)+
NEW_LINE
RTRUE
Routine R0030, 0 locals
CALL_VN R0150 (#01,#ff)
RTRUE
Routine R0031, 3 locals
INC G02
JE G06,#01 [FALSE] L0001
CALL_2N R0098 (#00)
L0001: JE G06,#0d [FALSE] L0009
GET_PROP "The Spirit World",#15 -> -(SP)
JE (SP)+,#04 [FALSE] L0009
INC G31
JE G31,#02 [FALSE] L0002
PRINT "
The entrance to the tomb rumbles.
"
L0002: JE G31,#03 [FALSE] L0003
PRINT "
The noise grows, and dust falls from cracks in the masonry.
"
L0003: JE G31,#04 [FALSE] L0004
PRINT "
The entrance bursts open in a shower of plaster! Light streams in, searing
your eyes. There is a great commotion. Two Napoleonic French officers stride
down the stairs, lanterns in hand, looking admiringly around the court. They do
not seem to see you.
"
INSERT_OBJ "Napoleonic officers","The Spirit World"
L0004: JE G31,#05 [FALSE] L0005
PRINT "
The officers are fascinated by the way the tomb seems almost untouched, and yet
the couch looks slept in.
"
L0005: JE G31,#06 [FALSE] L0006
PRINT "
The officers look down the passage, finding it to be sealed.
"
L0006: JE G31,#07 [FALSE] L0007
PRINT "
The officers sit next to the sphinxes, stroking their moustaches in comic
perplexity. As they do so, one bangs his head on a stone nose.
"
L0007: JE G31,#08 [FALSE] L0008
PRINT "
The other officer is greatly amused by this slapstick. (You really are
beginning to see just how boring the living can be.)
"
L0008: JE G31,#09 [FALSE] L0009
PRINT "
The first officer tweaks the nose of the sphinx in affection. Suddenly there is
a great rumbling of stone from the passage below, and they rush down to
investigate!
"
REMOVE_OBJ "Napoleonic officers"
SET_ATTR "sphinxes",#19
INSERT_OBJ "stone nose of a sphinx","The Height of Fashion"
L0009: JE G06,#0a [FALSE] L0010
INC G30
JE G30,#02 [FALSE] L0010
INSERT_OBJ "flurries of green luminescence","Melancholy Dream"
PUT_PROP "Melancholy Dream",#0b,#0129
PUT_PROP "Melancholy Dream",#12,#0129
PRINT "
A ghostly apparition of a venerable man hazes into view. He raises his mahogany
staff and strikes it (silently) on the ground, then points it at the walls, and
suddenly a flurry of green luminescence chases around you!
He fades away again, mumbling something incoherent.
"
L0010: JE G06,#0b [FALSE] L0036
GET_PROP "Causeway",#15 -> -(SP)
ADD (SP)+,#01 -> -(SP)
PUT_PROP "Causeway",#15,(SP)+
GET_PROP "Causeway",#15 -> -(SP)
JE (SP)+,#0c [FALSE] L0011
PUT_PROP "Causeway",#15,#00
L0011: JE G00,#018a,#01ab,#01be [FALSE] L0022
GET_PROP "Causeway",#15 -> L00
JE G00,#01ab [FALSE] L0012
DEC L00
L0012: JE G00,#01be [FALSE] L0013
SUB L00,#02 -> L00
L0013: JL L00,#04 [FALSE] L0014
PRINT "
A lively, very noisy procession pushes through here, and some spectacular
floats are approaching fast.
"
L0014: JE L00,#04 [FALSE] L0015
PRINT "
The Morning Star leads an enormous procession for the festival of Dionysus,
which throngs with officials dressed as satyrs, actors and townswomen.
"
L0015: JE L00,#05 [FALSE] L0016
PRINT "
Behind the front are huge statues on mechanical floats, flanked by giant
overflowing pitchers of wine. And the animals are coming!
"
L0016: JE L00,#06 [FALSE] L0017
PRINT "
Yes, 2000 oxen dressed in gold, as many dogs, and the giraffes, the antelopes,
the gnus, parrots, elephants, wildebeest... ostriches pulling carts, a white
bear...
"
L0017: JE L00,#07 [FALSE] L0018
PRINT "
Next the dancers, in a great masque of the life of Alexander the Great, his
travels, conquests, founding of the City, and so on. The delicate matter of how
exactly his general Ptolemy took over is omitted, since Ptolemy's son Ptolemy
II is now very much in charge.
"
L0018: JE L00,#08 [FALSE] L0019
PRINT "
The centrepiece of the procession: an enormous gold ribboned phallus, two
hundred feet long and with a giant star on the end. Inexplicably, you are the
only person present who feels this to be in doubtful taste.
"
L0019: JE L00,#09 [FALSE] L0020
PRINT "
A procession of women follows next, each in the national dress of an allied
city state, from all over the Hellenistic world, North Africa to Sicily to
Asia.
"
L0020: JE L00,#0a [FALSE] L0021
PRINT "
The procession ends as it began, with a great Evening Star, before falling into
a shambolic crowd of revellers, drunken and maudlin.
"
L0021: JG L00,#0a [FALSE] L0022
PRINT "
The procession looks like running on forever.
"
L0022: JE G00,#0182 [FALSE] L0024
RANDOM #05 -> -(SP)
JE (SP)+,#01 [FALSE] L0024
TEST_ATTR "smooth round stone",#19 [FALSE] L0023
PRINT "
A wave splashes up under the grating, throwing up the strange stone, which
bounces back off the grating and washes away down the passage out of sight.
Well, you didn't think it was going to be that easy, did you?
"
CALL_2N R0040 (#25)
INSERT_OBJ "smooth round stone","Warehouses and Port"
INSERT_OBJ "rusty iron key","Warehouses and Port"
CLEAR_ATTR "smooth round stone",#19
CLEAR_ATTR "smooth round stone",#06
CLEAR_ATTR "smooth round stone",#01
SET_ATTR "rusty iron key",#19
PUT_PROP "rusty iron key",#04,S755
PUT_PROP "smooth round stone",#04,S756
JUMP L0024
L0023: PRINT "
Down below, a wave splashes against the sea front, briefly washing up under the
grating.
"
L0024: JE G00,#0185 [FALSE] L0026
RANDOM #05 -> -(SP)
JE (SP)+,#01 [FALSE] L0026
GET_PARENT G03 -> -(SP)
JE (SP)+,#0186 [FALSE] L0025
PRINT "
A wave suddenly rocks the skiff.
"
JUMP L0026
L0025: PRINT "
A wave suddenly splashes against your feet, up to the knees, and washes up the
steps toward the grating.
"
L0026: JE G00,#01c5 [FALSE] L0035
TEST_ATTR "gambling sailor",#19 [FALSE] L0034
RANDOM #05 -> L00
JL L00,#03 [FALSE] L0032
PRINT "
The sailor grabs the die and throws a ""
RANDOM #06 -> L00
TEST_ATTR "gambling sailor",#22 [TRUE] L0027
TEST_ATTR "inscribed die",#22 [FALSE] L0028
L0027: STORE L00,#06
L0028: CALL_2N R0136 (L00)
PRINT "", "
GET_PROP "inscribed die",#15 -> -(SP)
JG L00,(SP)+ [FALSE] L0029
PRINT "and grins.
"
L0029: GET_PROP "inscribed die",#15 -> -(SP)
JL L00,(SP)+ [FALSE] L0030
PRINT "and sighs.
"
L0030: GET_PROP "inscribed die",#15 -> -(SP)
JE L00,(SP)+ [FALSE] L0031
PRINT "and shrugs.
"
L0031: PUT_PROP "inscribed die",#15,L00
CLEAR_ATTR "gambling sailor",#19
JUMP L0033
L0032: PRINT "
The sailor stares at the die thoughtfully.
"
L0033: JUMP L0035
L0034: PRINT "
The sailor hums a sea shanty.
"
L0035: JE G4c,#13 [TRUE] L0036
GET_PARENT "Austin" -> -(SP)
JE (SP)+,G00 [FALSE] L0036
CALL_1N R0097
L0036: JE G00,#0188 [FALSE] L0039
TEST_ATTR "Harbour Mouth",#19 [FALSE] L0037
PRINT "
The sails billow, then slacken...
"
INSERT_OBJ "skiff","Drifting"
STORE G00,#0189
CALL_2N R0198 (#01)
JUMP L0038
L0037: SET_ATTR "Harbour Mouth",#19
L0038: JUMP L0040
L0039: JE G00,#0189 [FALSE] L0040
PRINT "
Light brightens into day. The skiff drifts, drifts upon...
"
INSERT_OBJ "skiff","Garden Stream"
STORE G00,#8d
CALL_2N R0198 (#01)
L0040: JE G00,#0177 [FALSE] L0042
TEST_ATTR "adamantine skull",#01 [FALSE] L0041
RANDOM #03 -> -(SP)
JE (SP)+,#01 [FALSE] L0041
JE G1d,#00 [FALSE] L0041
CLEAR_ATTR "adamantine skull",#01
PRINT "
The skull wobbles and falls off the knight again.
"
L0041: TEST_ATTR "adamantine hand",#01 [FALSE] L0042
RANDOM #03 -> -(SP)
JE (SP)+,#01 [FALSE] L0042
JE G1d,#00 [FALSE] L0042
CLEAR_ATTR "adamantine hand",#01
PRINT "
The hand wavers and falls off the knight again.
"
L0042: JE G00,#01d0 [FALSE] L0045
GET_PROP "Buried Alive",#15 -> -(SP)
SUB (SP)+,#01 -> L00
PUT_PROP "Buried Alive",#15,L00
JE L00,#00 [FALSE] L0043
STORE G05,#01
PRINT_RET "
The air runs out, and you expire. Few corpses as so considerate as to bury
themselves in advance - hopefully this thought is some consolation."
L0043: JE L00,#03 [FALSE] L0044
PRINT "
You are beginning to choke and pant.
"
L0044: JE L00,#01 [FALSE] L0045
PRINT "
The air is desperately thin now, and you struggle hopelessly.
"
L0045: JE G00,#01ad [FALSE] L0047
GET_PROP "The Birdcage of the Muses",#15 -> L00
JE L00,#03 [FALSE] L0046
PRINT "
A messenger-boy in a plain white tunic slips into the library and places a
couple of tubes in the pigeonhole. So resentful is he of missing the party
outside that he fails to notice you at all, and runs back out again at once.
"
INSERT_OBJ "tube with an alpha on","pigeonhole"
INSERT_OBJ "tube with a kappa on","pigeonhole"
L0046: JL L00,#04 [FALSE] L0047
ADD L00,#01 -> -(SP)
PUT_PROP "The Birdcage of the Muses",#15,(SP)+
L0047: TEST_ATTR "heavy iron mascot",#06 [FALSE] L0057
STORE L00,#8a
GET_PARENT L00 -> L00
JE L00,G03 [FALSE] L0057
CALL_2S R0033 (#8a) -> -(SP)
JE #00,(SP)+ [TRUE] L0052
STORE G05,#01
PRINT "
In an astonishing freak accident, "
RANDOM #05 -> L00
JE L00,#01 [FALSE] L0048
PRINT_RET "a meteorite hurtles through the Earth's atmosphere and
then straight through your head. Anyone would think you had a curse on you
(anyone, that is, still able to think)."
L0048: JE L00,#02 [FALSE] L0049
PRINT_RET "an earthquake demolishes everything in the
neighbourhood, swallowing you up into a chasm in the ground. Anyone would think
you had a curse on you."
L0049: JE L00,#03 [FALSE] L0050
PRINT_RET "a long-dormant volcano erupts instantaneously below
your feet. Anyone would think you had a curse on you (anyone, that is, still
standing)."
L0050: JE L00,#04 [FALSE] L0051
PRINT_RET "lightning abruptly strikes into your body, making your
hair stand on end. (Oh, and vapourising you utterly, of course.)"
L0051: PRINT_RET "four hundred Spartan soldiers are transported by some
quantum-mechanical fluke from the Battle of Thermopylae into your immediate
vicinity. They are quite keen for someone to explain things to them, but
unfortunately most of the spears they were throwing came with them; one of
which struck straight through the mascot into your body."
L0052: CALL_2S R0036 (#8a) -> L00
JE L00,#0a [FALSE] L0053
PRINT "
You feel very nervous indeed, for some reason.
"
L0053: JE L00,#07 [FALSE] L0055
GET_PARENT G03 -> -(SP)
JE (SP)+,#2b [TRUE] L0054
PRINT "
You stub your toe painfully, and trip over.
"
JUMP L0055
L0054: PRINT "
You feel bed-sores coming on.
"
L0055: JE L00,#05 [FALSE] L0056
PRINT "
You scratch yourself, unable to get rid of an itching sensation.
"
L0056: JE L00,#02 [FALSE] L0057
PRINT "
Something feels very wrong indeed. Your hand begins to burn.
"
L0057: STORE L00,#25
L0058: JE L00,#00 [TRUE] L0059
STORE L01,L00
GET_PARENT L00 -> L00
JUMP L0058
L0059: JE L01,G00 [FALSE] L0061
TEST_ATTR "electric torch",#00 [FALSE] L0061
STORE L00,#25
GET_CHILD L00 -> -(SP) [TRUE] L0060
L0060: CALL_2N R0037 ((SP)+)
L0061: TEST_ATTR "Sir Joshua Meldrewe",#01 [TRUE] L0062
JE G00,#53 [FALSE] L0062
CALL_1N R0038
L0062: CALL_2S R0033 (#61) -> -(SP)
JE #00,(SP)+ [TRUE] L0063
PRINT "
Sorry. Thinking about it again, the score only gets in a muddle this way, so
the bonus points had better go after all.
"
STORE G17,#00
STORE G41,#01
SUB G01,#05 -> G01
L0063: CALL_2S R0033 (#af) -> -(SP)
JE #00,(SP)+ [TRUE] L0064
JE G06,#06 [FALSE] L0064
PRINT "
There is a great rumbling sound and then a thunderous avalanche of stone
cascades down the hillside into the valley. The Folly has collapsed!
Capability Meldrew and his workmen come running to investigate. In the ensuing
confusion, they come across you and, of course, blame you for their incompetent
masonry. You are hauled up before the county assizes...
"
STORE G05,#05
L0064: JE G06,#06 [TRUE] L0065
JL G0c,#64 [FALSE] L0065
MUL #09,G0d -> -(SP)
ADD G0c,(SP)+ -> L00
STOREB G09,L00,#30
STORE G0c,#64
L0065: JE G00,#a8 [FALSE] L0075
GET_PROP "Inside the Orb",#15 -> L00
INC L00
PUT_PROP "Inside the Orb",#15,L00
JE L00,#01 [FALSE] L0066
RTRUE
L0066: JE L00,#02 [FALSE] L0067
PRINT "
The sphere rotates, giving you a fresh view of the images: stylised Kings and
Queens?
"
L0067: JE L00,#04 [FALSE] L0068
PRINT "
The sphere rotates, giving you another look: humble tokens of warriors.
"
L0068: JE L00,#06 [FALSE] L0069
PRINT "
The sphere rotates, giving you another look: carved horse-heads and Bishops'
mitres.
"
L0069: JE L00,#08 [FALSE] L0070
PRINT "
(The sphere rotates.) It's a chess game! Now you understand. But you still
can't puzzle out the actual solution.
"
L0070: JE L00,#0a [FALSE] L0071
PRINT "
(The sphere rotates.) You have some impression that White is trying to make an
attack, having plenty of spare pieces.
"
CALL_2N R0041 (#1a)
L0071: JE L00,#0c [FALSE] L0072
PRINT "
(The sphere rotates.) Seeing the board from Black's point of view, the defence
looks solid.
"
L0072: JE L00,#0e [FALSE] L0073
PRINT "
(The sphere rotates.) Back to White's side. You definitely need to smash
through somehow, all that cautious exchanging of pieces hasn't worked. If you
want White to win, that is.
"
L0073: MOD L00,#04 -> L01
JE L01,#00 [FALSE] L0074
CLEAR_ATTR "Inside the Orb",#19
JG L00,#0c [FALSE] L0074
PRINT "
(The sphere rotates.) Black still looks safe.
"
L0074: JE L01,#02 [FALSE] L0075
SET_ATTR "Inside the Orb",#19
JG L00,#0e [FALSE] L0075
PRINT "
(The sphere rotates.) White must break out somehow.
"
L0075: JE G00,#011f [FALSE] L0079
RANDOM #0a -> L00
JE L00,#01 [FALSE] L0076
PRINT "
There is a horrid grinding noise from far away.
"
L0076: JE L00,#02 [FALSE] L0077
PRINT "
A flash of light sears your eyes, as the sulphurous flames grumble.
"
L0077: JE L00,#03 [FALSE] L0078
PRINT "
You can almost, but not quite, make out the noise of shouting.
"
L0078: JE L00,#04 [FALSE] L0079
PRINT "
Thunder and lightning can be heard from the fiery depths.
"
L0079: JE G00,#0121 [FALSE] L0083
RANDOM #0a -> L00
JE L00,#01 [FALSE] L0080
PRINT "
Angels with harps float by, gossiping about you in a kindly way.
"
L0080: JE L00,#02 [FALSE] L0081
PRINT "
Babies float by, just counting their toes.
"
L0081: JE L00,#03 [FALSE] L0082
PRINT "
Burnished-gold sunlight strokes the tops of the clouds here.
"
L0082: JE L00,#04 [FALSE] L0083
PRINT "
The choir invisible almost, for a moment, becomes audible.
"
L0083: JE G00,#c9,#db [FALSE] L0087
RANDOM #0a -> L00
JE L00,#01 [FALSE] L0084
PRINT "
A clock keeps the hours, with a dead sound on the final stroke of nine.
"
L0084: JE L00,#02 [FALSE] L0085
PRINT "
There is a brown fog about, like a winter dawn's.
"
L0085: JE L00,#03 [FALSE] L0086
PRINT "
You can almost make out the pleasant whining of a mandoline from a faraway bar.
"
L0086: JE L00,#04 [FALSE] L0087
PRINT "
Drifting through the streets from some distant bar comes the sound of one of
Scott Joplin's newfangled piano pieces, accompanying song settings from "Romeo
and Juliet".
"
L0087: JE G00,#f9 [FALSE] L0091
RANDOM #0d -> L00
JE L00,#01 [FALSE] L0088
PRINT "
The diners grumble and play backgammon viciously.
"
L0088: JE L00,#02 [FALSE] L0089
PRINT "
The bartender gives you a hard stare.
"
L0089: JE L00,#03 [FALSE] L0090
PRINT "
A fight breaks out, over an obscure question to do with somebody's second
cousin.
"
L0090: JE L00,#04 [FALSE] L0091
PRINT "
The gentle sound of bazouki music strikes up in the background, and gradually
rises to an intolerable pitch. After a moment comes a dull thud and a strangled
noise, then blessed quiet.
"
L0091: GET_PARENT "antiquated wireless" -> -(SP)
JE G00,(SP)+ [FALSE] L0093
TEST_ATTR "antiquated wireless",#18 [TRUE] L0092
CLEAR_ATTR "antiquated wireless",#19
L0092: TEST_ATTR "antiquated wireless",#19 [FALSE] L0093
PRINT "
The radio plays a "
CALL_1N R0032
L0093: CALL_2S R0033 (#82) -> -(SP)
JE #00,(SP)+ [TRUE] L0095
TEST_ATTR "antiquated wireless",#18 [FALSE] L0095
SET_ATTR "antiquated wireless",#19
STORE L00,#82
GET_PARENT L00 -> L00
JE G00,L00 [FALSE] L0094
PRINT "
The radio valves glow, and execrable so-called easy listening music fills the
air with a sort of bland aural candy-floss.
"
L0094: JE G00,#83 [FALSE] L0095
JE L00,#7e [FALSE] L0095
PRINT "
Execrable music begins to sound from the conservatory, and Aunt Jemima hums
vacantly.
"
L0095: JE G06,#07 [FALSE] L0130
CALL_2S R0033 (#0113) -> -(SP)
JE #00,(SP)+ [TRUE] L0096
GET_PARENT G03 -> L00
JE L00,#0112 [FALSE] L0096
SET_ATTR "kitchen well",#19
CALL_2N R0041 (#09)
PRINT "
You hear a splash from far down in the depths of the well.
"
L0096: JE G1b,#01 [FALSE] L0097
PRINT "
From up on the hill you hear the blowing of a horn.
"
L0097: JE G1b,#02 [FALSE] L0098
PRINT "
Horses are approaching the villa, coming down the hill.
"
L0098: JE G1b,#03 [FALSE] L0099
PRINT "
The sound of horses draws nearer.
"
L0099: JE G1b,#04 [FALSE] L0101
JE G00,#0116 [FALSE] L0100
PRINT "
Horsemen suddenly gallop into the courtyard and you are soon ringed by guards!
"
CALL_1N R0438
JUMP L0101
L0100: PRINT "
There is definitely activity outside the villa.
"
L0101: JL G1b,#05 [TRUE] L0103
JE G00,#0116 [FALSE] L0102
PRINT "
You walk straight into the guards.
"
CALL_1N R0438
L0102: JE G00,#0108 [FALSE] L0103
PRINT "
You walk straight into the guards at the back door.
"
CALL_1N R0438
L0103: JE G1b,#07 [FALSE] L0109
PRINT "
There is sudden activity as the guards make a thorough search of the villa,
just to be on the safe side. "
JE G00,#0115 [FALSE] L0104
PRINT "Luckily, they don't even think of looking down in here.
"
JUMP L0109
L0104: JE G00,#0114 [FALSE] L0105
PRINT "Unfortunately, they do think of looking into the
kitchen well, and drag you out onto the triclinium floor.
"
L0105: JE G00,#ff,#0102,#0104 [FALSE] L0106
PRINT "With the kind of zeal which really marked the early
Dark Ages, they look even here.
"
JUMP L0108
L0106: JE G00,#0114 [TRUE] L0107
L0107: PRINT "The virtue of doing so is demonstrated when they find
you without difficulty.
"
L0108: CALL_1N R0438
L0109: JG G1b,#07 [FALSE] L0110
JE G00,#0112 [FALSE] L0110
PRINT "
An industrious-looking slave (who cooks for the horsemen) is rather surprised
to see you, but with creditable presence of mind he summons the guard at once.
"
CALL_1N R0438
L0110: JE G00,#0115 [FALSE] L0125
JE G1b,#08 [FALSE] L0111
PRINT "
You hear men walking across the mosaic just above your head.
"
L0111: JE G1b,#09 [FALSE] L0113
PRINT "
A voice, which can just be heard through the vent, says "
JE G1c,#00 [FALSE] L0112
PRINT "something in Anglo-Saxon or Celtic (hard to say which).
"
JUMP L0125
L0112: PRINT ""Welcome, great masters. We are convened in secret
conclave to decide the fate of Britain. Lament, for the old ways are passing!
There will be a dark age, a collapse into many monarchies, and any man who can
hold a town will call himself King and heir to Vortigern."
"
L0113: JE G1b,#0a [FALSE] L0115
PRINT "
A younger, more impatient voice, says "
JE G1c,#00 [FALSE] L0114
PRINT "something else.
"
JUMP L0125
L0114: PRINT ""This is an opportunity! We must be the power behind
the thrones, we will in secret unite and be the true force of the land..."
"
L0115: JE G1b,#0b [FALSE] L0117
PRINT "
There is cynical laughter for a moment, and a third voice interjects "
JE G1c,#00 [FALSE] L0116
PRINT "something.
"
JUMP L0125
L0116: PRINT ""And who will lead this, this unity? We take all sides
and none, you know that. There are potent druids in the tents of each general
down there in the rabble. They'd kill each other without hesitation on the
battlefield."
"
L0117: JE G1b,#0c [FALSE] L0119
PRINT "
The first voice speaks once more. "
JE G1c,#00 [FALSE] L0118
NEW_LINE
JUMP L0125
L0118: PRINT ""Far worse is to come. The jumped-up kings and their
new men will no longer believe in the ancient powers. Already I can feel the
druidic magic weakening away, and we are perilously close to the nexus now. In
the valleys below, armies wait to fight the decisive battle. Whichever side
wins, they will no longer need us. In a matter of hours, the power will be
broken forever."
"
L0119: JE G1b,#0d [FALSE] L0121
PRINT "
After a sombre silence, a much older voice says "
JE G1c,#00 [FALSE] L0120
PRINT "something wise. It really is a pity you can't
understand them.
"
JUMP L0125
L0120: PRINT ""You did right to call us together. There is a path
prepared for us, but the sacrifice will be terrible. We must concentrate all
the remaining druidical energy into this sacred hill, that it may last through
all time, and we must ensure that druids live on this site forever and keep the
faith."
"
L0121: JE G1b,#0e [FALSE] L0123
PRINT "
The younger voice speaks again. "
JE G1c,#00 [FALSE] L0122
NEW_LINE
JUMP L0125
L0122: PRINT ""For now, yes, for a century or two, yes, but what
then? They will forget the old ways, they will no longer truly be druids."
"
L0123: JE G1b,#0f [FALSE] L0125
PRINT "
The older voice replies triumphantly. "
JE G1c,#00 [FALSE] L0124
NEW_LINE
JUMP L0125
L0124: PRINT ""This is what must be done. They will forget, so we
must give them a substitute. We shall accurse them to always seek after this
magical stone, which it will be all but impossible for them to find. It will
take the form of whatever they most desire. In six hundred years, by my
prophecy, religious wars in the East will capture men's hearts, and then they
will think it is the Holy Grail, the cup which held the blood of Christ. A
thousand years later they will think it is -" But at this moment the voices
move away.
"
L0125: JE G1b,#00 [TRUE] L0126
INC G1b
L0126: CALL_2S R0033 (#0118) -> -(SP)
JE #00,(SP)+ [TRUE] L0127
PRINT "
Without warning a Saxon spy (or, as the guards would no doubt put it, another
Saxon spy) is thrown bodily into the tent, careering into the central pole and
slumping unconscious on the ground as a result. For a moment the whole tent
rocks with the force - the pole was nearly broken.
"
CLEAR_ATTR "tent pole",#0f
STORE L00,#0119
REMOVE_OBJ L00
INSERT_OBJ L00,"Rough Tent"
CALL_VN R0035 (#0119,#05)
L0127: JE G00,#0117 [FALSE] L0129
CALL_2S R0033 (#0119) -> -(SP)
JE #00,(SP)+ [TRUE] L0129
STORE L00,#0119
GET_PARENT L00 -> L00
JE L00,#0117 [FALSE] L0128
PRINT "
Men arrive to drag the Saxon spy away to some unguessable grisly fate. They
grimace at you as if to say, "You're next."
"
STORE L01,#0119
REMOVE_OBJ L01
CALL_VN R0035 (#0119,#05)
L0128: JE L00,#00 [FALSE] L0129
STORE G05,#01
PRINT "
The men arrive once more and this time they securely grab you by the arms. If
you were an anthropologist, you'd be fascinated by the ritual in which you are
bound up, then garotted with a cord and laid into a peat swamp. Instead, your
last thought is to remember the celebrated body they found when they drained
the marshes in 1974 to build a motorway service station.
"
L0129: CALL_2S R0033 (#011a) -> -(SP)
JE #00,(SP)+ [TRUE] L0130
PRINT "
It had to happen sooner or later. One of the druids looks round, sees you and
raises an instant alarm. It is absolutely hopeless and you are dragged away
screaming to your fate.
"
STORE G05,#01
L0130: JE G00,#83 [FALSE] L0131
CALL_2S R0033 (#85) -> -(SP)
JE #00,(SP)+ [TRUE] L0131
PRINT "
"There we are! All done now." Jemima hangs a daisy chain around your neck,
then frowns and adjusts your hair in an exceedingly annoying way.
"
CALL_2N R0040 (#09)
STORE L00,#86
SET_ATTR L00,#06
STORE G46,#01
INSERT_OBJ L00,G03
SET_ATTR "daisy chain",#02
L0131: JE G05,#00 [TRUE] L0132
JUMP L0162
L0132: JE G11,#01 [FALSE] L0147
CALL_2S R0034 (#e1) -> -(SP)
JE #00,(SP)+ [TRUE] L0146
STORE G11,#00
STORE L00,#e1
GET_PARENT L00 -> L01
L0133: GET_PARENT L00 -> -(SP)
JE #00,(SP)+ [TRUE] L0134
GET_PARENT L00 -> L00
JUMP L0133
L0134: JE G00,L00 [FALSE] L0146
PRINT "
You hear a sharp click!
"
JE L01,#3b [FALSE] L0146
NEW_LINE
GET_CHILD L01 -> L02 [TRUE] L0135
L0135: JE L02,#e1 [FALSE] L0136
GET_SIBLING L02 -> L02 [TRUE] L0136
L0136: JE L02,#00 [FALSE] L0137
PRINT "But the flash does nothing.
"
JUMP L0162
L0137: JE L02,#63 [TRUE] L0138
PRINT "And the flash gives a pathetically small flash of
light.
"
JUMP L0162
L0138: PRINT "The flash suddenly gives an enormous magnesium-flare
flash, almost blinding in its intensity. Your eyes take a little while to
adjust. "
JE G00,#df [FALSE] L0139
PRINT "Consequently you can only hear as the cabaret audience
gives you a round of applause for what they think is a magic trick."
L0139: STORE L02,#3b
GET_PARENT L02 -> L02
JE L02,#fd [FALSE] L0144
TEST_ATTR "photographer's flash",#19 [TRUE] L0144
SET_ATTR "photographer's flash",#19
PRINT "Consequently you can only hear as the smudge on the
horizon rises from the waves, becomes an enormous Kraken sea monster and lunges
for the stone tower. (Considering this is supposed to be a Greek myth it feels
surprisingly like a Japanese 1960s creature film.) The Kraken swipes at you,
overreaches itself and falls over forward, impaling itself extremely messily on
the pharos. Your eyes just about recover by the time the rest of your body is
crushed by its weight.
Up on Mount Olympus, Zeus is still cross. "Take me to your Leda", you wittily
demand, but this does not seem to improve matters. Poseidon also looks rather
fed up, but luckily a sizeable faction of goddesses takes your side and
arranges to have you resurrected...
"
CALL_2N R0040 (#0b)
STORE G00,#8f
REMOVE_OBJ G03
REMOVE_OBJ "photographer's flash"
CALL_VN R0150 (#08,#78)
CALL_VN R0150 (#09,#b9)
CLEAR_ATTR "Lighthouse",#11
GET_CHILD G03 -> L00 [TRUE] L0140
L0140: JE L00,#00 [TRUE] L0143
GET_SIBLING L00 -> L01 [TRUE] L0141
L0141: JE L00,#86 [TRUE] L0142
INSERT_OBJ L00,"Lighthouse"
CLEAR_ATTR L00,#02
L0142: STORE L00,L01
JUMP L0140
L0143: INSERT_OBJ G03,G00
STORE G06,#05
CALL_2N R0198 (#01)
JUMP L0162
L0144: NEW_LINE
GET_PARENT "Austin" -> -(SP)
JE (SP)+,G00 [FALSE] L0145
PRINT "
Austin jumps with fear, then slouches back again into his "cool" pose.
"
L0145: GET_PARENT "irate squirrel friend" -> -(SP)
JE (SP)+,G00 [FALSE] L0146
PRINT "
The squirrel covers his eyes with his paws for a moment.
"
L0146: JUMP L0162
L0147: JE G00,#e6 [FALSE] L0153
TEST_ATTR "Cups and Glasses",#19 [TRUE] L0148
STORE L00,#e6
PUT_PROP L00,#15,G02
SET_ATTR "Cups and Glasses",#19
L0148: STORE L00,#e6
GET_PROP L00,#15 -> -(SP)
SUB G02,(SP)+ -> L00
JE L00,#02 [FALSE] L0149
PRINT "
There is a scuffling noise as some people gather up on the pavement outside the
skylight.
"
L0149: JE L00,#03 [FALSE] L0150
PRINT "
The men begin to talk like conspirators, but half in chants. You catch
occasional sounds, but can make little sense of them.
"
L0150: JE L00,#04 [FALSE] L0151
PRINT "
Alarmingly, you catch the odd word "incendiary" and are almost sure you can
make out someone say "accursed Meldrew" (in the old-fashioned way, you know, so
that "accursed" rhymes with "dead"). Paranoia, bound to be. There surely can't
really be a conspiracy of druid-worshippers out to get you?
"
L0151: JE L00,#05 [FALSE] L0152
PRINT "
"The prophecy must be fulfilled!" one warns, in an unearthly voice which
suddenly carries. The others hush him.
"
L0152: JE L00,#06 [FALSE] L0153
PRINT "
The men walk away, perhaps a few feet, perhaps a mile.
"
L0153: JE G00,#df [FALSE] L0162
TEST_ATTR "complicated-looking bomb",#1a [TRUE] L0155
TEST_ATTR "complicated-looking bomb",#01 [TRUE] L0154
NEW_LINE
CALL_1N R0420
L0154: TEST_ATTR "complicated-looking bomb",#01 [FALSE] L0155
PRINT "
The table rattles again.
"
L0155: CALL_2S R0034 (#e1) -> -(SP)
JE #00,(SP)+ [TRUE] L0162
SET_ATTR "complicated-looking bomb",#1a
TEST_ATTR "complicated-looking bomb",#19 [FALSE] L0161
LOADB G18,#00 -> -(SP)
JE #e4,(SP)+ [TRUE] L0156
JUMP L0160
L0156: LOADB G18,#01 -> -(SP)
JE #e2,(SP)+ [TRUE] L0157
JUMP L0160
L0157: LOADB G18,#02 -> -(SP)
JE #e5,(SP)+ [TRUE] L0158
JUMP L0160
L0158: LOADB G18,#03 -> -(SP)
JE #e3,(SP)+ [TRUE] L0159
JUMP L0160
L0159: PRINT "
Click! The timer runs out, but the bomb was disarmed. You pocket the timer and
hide the rest of the evidence under the table.
"
STORE L00,#e1
REMOVE_OBJ L00
INSERT_OBJ L00,G03
CLEAR_ATTR "timer-detonator",#0f
STORE L00,#e0
REMOVE_OBJ L00
JUMP L0162
L0160: PRINT "Click! Perhaps there's more to bomb disposal than you
thought.
"
L0161: PRINT "
In a sudden cataclysm, there is an enormous explosion from your table, blowing
out all the arrowslit windows, making a thunderous noise, starting a minor
fire, and of course having one other consequence:
"
STORE G05,#01
L0162: CALL_2S R0033 (#c5) -> -(SP)
JE #00,(SP)+ [TRUE] L0165
JE G06,#03 [FALSE] L0163
JE G00,#c5 [TRUE] L0163
PRINT "
Finally reacting to the alarm you set off, Doktor Stein appears and steps
toward you, clapping his hands sharply. And dozens of robed figures leap out of
the darkness - but these are no security guards. Their faces are painted
hideously and they betray no emotion as they pinion you tight...
"So, Meldrew. It is all as it was prophesied," says Stein in a perfectly
conversational tone as he forces your mouth open and makes you swallow a violet
pill.
"One of your apothecary ancestors made this drug! Appropriate, no?"
"
PRINT "You feel queasy, but this is perhaps the least of your
problems as they drag you off...
"
STORE G00,#c5
REMOVE_OBJ G03
INSERT_OBJ G03,"Coven Cell"
SET_ATTR G03,#19
CALL_VN R0035 (#c5,#05)
CALL_1N R0198
JUMP L0165
L0163: JE G00,#c5 [FALSE] L0165
PRINT "
A key turns in the door and Doktor Stein bursts in. He stops to pat the goat
affectionately. "Cheer up, Dobbin. As soon as I've finished this brutal human
sacrifice I'll take you for your walk." He feeds Dobbin some sugar-cake. "They
make such marvellous cheese," he explains confidentially.
"
STORE G05,#01
TEST_ATTR G03,#19 [FALSE] L0164
PRINT_RET "
In a trance, you go willingly to your (somewhat messy) sacrifice..."
L0164: PRINT_RET "
Kicking and screaming, you are are dragged off to a grisly sacrifice..."
L0165: STORE L00,G04
GET_PARENT G03 -> -(SP)
CALL_2S R0039 ((SP)+) -> G04
JE L00,#00 [FALSE] L0168
JE G04,#01 [FALSE] L0168
NEW_LINE
JE G22,#00 [TRUE] L0166
GET_PARENT G22 -> G00
INSERT_OBJ G03,G22
JUMP L0167
L0166: GET_PARENT G03 -> G00
L0167: CALL_2N R0198 (#01)
L0168: JE L00,#01 [FALSE] L0170
JE G04,#00 [FALSE] L0170
NEW_LINE
PRINT "It is now pitch dark in here!
"
GET_PARENT G03 -> G22
JE G22,G00 [FALSE] L0169
STORE G22,#00
L0169: STORE G00,#0c
L0170: RTRUE
Routine R0032, 1 local
RANDOM #0c -> L00
JE L00,#01 [FALSE] L0001
PRINT "synthesized"
L0001: JE L00,#02 [FALSE] L0002
PRINT "light orchestra"
L0002: JE L00,#03 [FALSE] L0003
PRINT "choral"
L0003: JE L00,#04 [FALSE] L0004
PRINT "snare drum and strings"
L0004: JE L00,#05 [FALSE] L0005
PRINT "country-and-western"
L0005: JE L00,#06 [FALSE] L0006
PRINT "one-finger piano"
L0006: JE L00,#07 [FALSE] L0007
PRINT "Welsh coal-miners' Eisteddfod choir"
L0007: JE L00,#08 [FALSE] L0008
PRINT "Hammond organ"
L0008: JE L00,#09 [FALSE] L0009
PRINT "easy-listening"
L0009: JE L00,#0a [FALSE] L0010
PRINT ""lite-n-mellow""
L0010: JE L00,#0b [FALSE] L0011
PRINT "jazz trio"
L0011: JE L00,#0c [FALSE] L0012
PRINT "Big Band"
L0012: RANDOM #05 -> L00
JE L00,#01 [FALSE] L0013
PRINT " version of "
L0013: JE L00,#02 [FALSE] L0014
PRINT " rendition of "
L0014: JE L00,#03 [FALSE] L0015
PRINT " travesty of "
L0015: JE L00,#04 [FALSE] L0016
PRINT " arrangement of "
L0016: JE L00,#05 [FALSE] L0017
PRINT " transcription of "
L0017: RANDOM #50 -> L00
JE L00,#01 [FALSE] L0018
PRINT "Queen's "I Want To Break Free"."
L0018: JE L00,#02 [FALSE] L0019
PRINT "Bach's "Air on a G-string"."
L0019: JE L00,#03 [FALSE] L0020
PRINT "Mozart's "Musical Joke"."
L0020: JE L00,#04 [FALSE] L0021
PRINT "Stockhausen's "Piano Pieces I-IX"."
L0021: JE L00,#05 [FALSE] L0022
PRINT "Beethoven's "Moonlight Sonata"."
L0022: JE L00,#06 [FALSE] L0023
PRINT "Summer from Vivaldi's "Four Seasons"."
L0023: JE L00,#07 [FALSE] L0024
PRINT "the especially slow movement of Gorecki's "Symphony no.
3"."
L0024: JE L00,#08 [FALSE] L0025
PRINT "Spandau Ballet's "Gold"."
L0025: JE L00,#09 [FALSE] L0026
PRINT "Duran Duran's "Is There Something I Should Know?"."
L0026: JE L00,#0a [FALSE] L0027
PRINT "Derek and the Dominos' "Layla"."
L0027: JE L00,#0b [FALSE] L0028
PRINT "Don McLean's "American Pie"."
L0028: JE L00,#0c [FALSE] L0029
PRINT "Chopin's "Nocturne no. 1"."
L0029: JE L00,#0d [FALSE] L0030
PRINT "Oxygene by Jean-Michel Jarre."
L0030: JE L00,#0e [FALSE] L0031
PRINT "the Beatles' "Yellow Submarine"."
L0031: JE L00,#0f [FALSE] L0032
PRINT "the Beatles' "She Loves You"."
L0032: JE L00,#10 [FALSE] L0033
PRINT "the Beatles' "Hey Jude"."
L0033: JE L00,#11 [FALSE] L0034
PRINT "the Beatles' "Lucy in the Sky with Diamonds"."
L0034: JE L00,#12 [FALSE] L0035
PRINT "Queen's "Bohemian Rhapsody"."
L0035: JE L00,#13 [FALSE] L0036
PRINT "the Beatles' "Magical Mystery Tour"."
L0036: JE L00,#14 [FALSE] L0037
PRINT "the Beatles' "I Am The Walrus"."
L0037: JE L00,#15 [FALSE] L0038
PRINT "Bill Haley's "Rock Around the Clock"."
L0038: JE L00,#16 [FALSE] L0039
PRINT "the old Elvis Presley number "Jailhouse Rock"."
L0039: JE L00,#17 [FALSE] L0040
PRINT "the old Elvis Presley number "Blue Suede Shoes"."
L0040: JE L00,#18 [FALSE] L0041
PRINT "ELO's "Mr Blue Sky"."
L0041: JE L00,#19 [FALSE] L0042
PRINT "Bach's Toccata in D minor for organ."
L0042: JE L00,#1a [FALSE] L0043
PRINT "ABC's "The Look of Love"."
L0043: JE L00,#1b [FALSE] L0044
PRINT "the Beach Boys' "California Girls"."
L0044: JE L00,#1c [FALSE] L0045
PRINT "the Stranglers' "Golden Brown"."
L0045: JE L00,#1d [FALSE] L0046
PRINT "Genesis' "That's All"."
L0046: JE L00,#1e [FALSE] L0047
PRINT "Grieg's piano concerto."
L0047: JE L00,#1f [FALSE] L0048
PRINT "Bruce Springsteen's "Born in the USA"."
L0048: JE L00,#20 [FALSE] L0049
PRINT "Beethoven's Symphony no. 5."
L0049: JE L00,#21 [FALSE] L0050
PRINT "Beethoven's "Emperor" piano concerto."
L0050: JE L00,#22 [FALSE] L0051
PRINT "Mozart's "Elvira Madigan" concerto."
L0051: JE L00,#23 [FALSE] L0052
PRINT "Bach's Brandenburg Concerto no. 5."
L0052: JE L00,#24 [FALSE] L0053
PRINT "Deep Purple's "Smoke On The Water"."
L0053: JE L00,#25 [FALSE] L0054
PRINT "Faure's Requiem."
L0054: JE L00,#26 [FALSE] L0055
PRINT "Tchaikovsky's "1812 Overture"."
L0055: JE L00,#27 [FALSE] L0056
PRINT "the Swan from Saint-Saens' "Carnival of the Animals"."
L0056: JE L00,#28 [FALSE] L0057
PRINT "the "O Fortuna" from Carl Orff's "Carmina Burana"."
L0057: JE L00,#29 [FALSE] L0058
PRINT "Led Zeppelin's "Stairway to Heaven"."
L0058: JE L00,#2a [FALSE] L0059
PRINT "the Bugs Bunny theme tune."
L0059: JE L00,#2b [FALSE] L0060
PRINT "Strauss' "Blue Danube" waltz."
L0060: JE L00,#2c [FALSE] L0061
PRINT "the Star Wars theme tune."
L0061: JE L00,#2d [FALSE] L0062
PRINT "the Star Trek theme tune."
L0062: JE L00,#2e [FALSE] L0063
PRINT "the Dallas theme tune."
L0063: JE L00,#2f [FALSE] L0064
PRINT "Wagner's "Ride of the Valkyries" overture."
L0064: JE L00,#30 [FALSE] L0065
PRINT "Dire Straits' "Money For Nothing"."
L0065: JE L00,#31 [FALSE] L0066
PRINT "Dire Straits' "Brothers In Arms"."
L0066: JE L00,#32 [FALSE] L0067
PRINT "Dire Straits' "Tunnel Of Love"."
L0067: JE L00,#33 [FALSE] L0068
PRINT "Wham's "Wake Me Up Before You Go-Go"."
L0068: JE L00,#34 [FALSE] L0069
PRINT "something abysmal by Leo Sayer."
L0069: JE L00,#35 [FALSE] L0070
PRINT "Lionel Richie's "Hello"."
L0070: JE L00,#36 [FALSE] L0071
PRINT "Hot Chocolate's "Happy Birthday"."
L0071: JE L00,#37 [FALSE] L0072
PRINT "Abba's "Mama Mia"."
L0072: JE L00,#38 [FALSE] L0073
PRINT "Abba's "Knowing Me, Knowing You"."
L0073: JE L00,#39 [FALSE] L0074
PRINT "Barry Manilow's "I Write The Songs"."
L0074: JE L00,#3a [FALSE] L0075
PRINT "Ian Dury and the Blockheads' "Hit Me With Your Rhythm
Stick"."
L0075: JE L00,#3b [FALSE] L0076
PRINT "Ravel's "Bolero"."
L0076: JE L00,#3c [FALSE] L0077
PRINT ""Nessun Dorma", as sung simultaneously by Pavarotti,
Carreras and Dolly Parton."
L0077: JE L00,#3d [FALSE] L0078
PRINT "Michael Jackson's "Thriller"."
L0078: JE L00,#3e [FALSE] L0079
PRINT "Michael Jackson's "Billy Jean"."
L0079: JE L00,#3f [FALSE] L0080
PRINT "Michael Jackson's "Beat It"."
L0080: JE L00,#40 [FALSE] L0081
PRINT "Kylie Minogue's "I Should Be So Lucky"."
L0081: JE L00,#41 [FALSE] L0082
PRINT "the Eurovision Song Contest's finest five minutes,
"Diggy-Loo Diggy-Lay (Life Is Going My Way)"."
L0082: JE L00,#42 [FALSE] L0083
PRINT "Dexy's Midnight Runners' "Come on Eileen"."
L0083: JE L00,#43 [FALSE] L0084
PRINT "Steppenwolf's "Born to be Wild"."
L0084: JE L00,#44 [FALSE] L0085
PRINT "John Cage's tuneful "Four minutes thirty-three
seconds"."
L0085: JE L00,#45 [FALSE] L0086
PRINT "Toto's "The Eye of the Tiger"."
L0086: JE L00,#46 [FALSE] L0087
PRINT "Cyndi Lauper's "Girls Just Wanna Have Fun"."
L0087: JE L00,#47 [FALSE] L0088
PRINT "the "Cavatina" from Beethoven's late string quartet op
130."
L0088: JE L00,#48 [FALSE] L0089
PRINT "the traditional air "Greensleeves"."
L0089: JE L00,#49 [FALSE] L0090
PRINT "Hoagy Carmichael's "Skylark"."
L0090: JE L00,#4a [FALSE] L0091
PRINT "Noel Coward's "Don't Put Your Daughter On The Stage"."
L0091: JE L00,#4b [FALSE] L0092
PRINT "Chas and Dave's "Rabbit Song"."
L0092: JE L00,#4c [FALSE] L0093
PRINT "Paul McCartney's "Mull of Kintyre"."
L0093: JE L00,#4d [FALSE] L0094
PRINT "John Lennon's "Imagine"."
L0094: JE L00,#4e [FALSE] L0095
PRINT "the grisly carol "We Wish You A Merry Christmas"."
L0095: JE L00,#4f [FALSE] L0096
PRINT "that hoary old favourite, "Oh Come All Ye Faithful"."
L0096: JE L00,#50 [FALSE] L0097
PRINT ""My Way", crooned over by Frank Sinatra."
L0097: NEW_LINE
RTRUE
Routine R0033, 2 locals
GET_PROP L00,#15 -> L01
JG L01,G02 [FALSE] L0001
RFALSE
L0001: JE L01,#00 [FALSE] L0002
RFALSE
L0002: PUT_PROP L00,#15,#00
RTRUE
Routine R0034, 2 locals
GET_PROP L00,#15 -> L01
JE L01,#00 [FALSE] L0001
RFALSE
L0001: DEC L01
PUT_PROP L00,#15,L01
JG L01,#00 [FALSE] L0002
RFALSE
L0002: RTRUE
Routine R0035, 2 locals
ADD G02,L01 -> L01
PUT_PROP L00,#15,L01
RTRUE
Routine R0036, 2 locals
GET_PROP L00,#15 -> -(SP)
SUB (SP)+,G02 -> L01
RET L01
Routine R0037, 2 locals
GET_PROP L00,#15 -> -(SP)
SUB (SP)+,#01 -> L01
JL L01,#64 [FALSE] L0001
PUT_PROP L00,#15,L01
L0001: JE L01,#02 [FALSE] L0002
PRINT "
The torch flickers ominously.
"
L0002: JE L01,#00 [FALSE] L0003
PRINT "
The torch finally dies out.
"
CLEAR_ATTR "electric torch",#00
CALL_2N R0041 (#08)
L0003: RTRUE
Routine R0038, 2 locals
STORE L00,#55
GET_PROP L00,#15 -> -(SP)
SUB (SP)+,#01 -> L01
PUT_PROP L00,#15,L01
JE L01,#04 [FALSE] L0001
PRINT "
The ghost laughs in a gurgling kind of way, as it were always coughing and
spluttering.
"
L0001: JE L01,#03 [FALSE] L0002
PRINT "
The ghost begins to speak:
My hour is almost come
When I to sulph'rous and tormenting flames
Must render up myself...
Can this possibly be the infamous Sir Joshua Meldrewe?
"
L0002: JE L01,#02 [FALSE] L0003
PRINT "
"But not yet it hasn't, mark my word. And there's the burden of my inheritance,
little wart! Get thee from my sight ere I slice thee as befits a hog!"
"
L0003: JE L01,#01 [FALSE] L0004
PRINT "
"I prithee once more, begone!"
"
L0004: JE L01,#00 [FALSE] L0005
PRINT "
The ghost swoops around and through you, making you scream with panic. Somehow
you manage to run back to safety, where your family (who never believe a word
of it) give you plenty of tea and occupy you with holiday arrangements. As for
you, you are so traumatised that you never venture into the attic again.
"
STORE G05,#03
L0005: RTRUE
Routine R0039, 1 local
TEST_ATTR L00,#00 [FALSE] L0001
RTRUE
L0001: TEST_ATTR L00,#08 [FALSE] L0002
TEST_ATTR L00,#09 [FALSE] L0002
TEST_ATTR L00,#0a [TRUE] L0002
RFALSE
L0002: GET_CHILD L00 -> L00 [TRUE] L0003
L0003: JE L00,#00 [TRUE] L0006
CALL_2S R0039 (L00) -> -(SP)
JE #01,(SP)+ [FALSE] L0004
RTRUE
L0004: GET_SIBLING L00 -> L00 [TRUE] L0005
L0005: JUMP L0003
L0006: RFALSE
Routine R0040, 3 locals
LOADB G13,L00 -> L01
JE L01,#00 [FALSE] L0002
LOADB G12,L00 -> L02
JE L00,#15 [FALSE] L0001
SUB #00,#32 -> L02
L0001: PUSH G40
INC G40
STOREB G13,L00,(SP)+
ADD G01,L02 -> G01
STORE G2d,L02
L0002: RTRUE
Routine R0041, 1 local
LOADB G2e,L00 -> -(SP)
JE (SP)+,#00 [FALSE] L0001
STOREB G2e,L00,#01
STORE G2f,L00
L0001: RTRUE
Routine R0042, 1 local
JE L00,#00 [FALSE] L0001
RFALSE
L0001: JE G2a,#01 [FALSE] L0002
SET_TEXT_STYLE BOLDFACE
L0002: PRINT "
[Your score just went "
JG L00,#00 [FALSE] L0003
PRINT "up by "
PRINT_NUM L00
JUMP L0004
L0003: PRINT "down by "
SUB #00,L00 -> -(SP)
PRINT_NUM (SP)+
L0004: JE L00,#01 [FALSE] L0005
PRINT " point.]
"
JUMP L0006
L0005: PRINT " points.]
"
L0006: JE G2a,#01 [FALSE] L0007
SET_TEXT_STYLE ROMAN
L0007: RTRUE
Routine R0043, 1 local
JE G2a,#00 [FALSE] L0001
RFALSE
L0001: JE L00,#00 [FALSE] L0002
STOREW G80,#00,S757
STOREW G80,#01,S758
STOREW G80,#02,#00
STOREW G80,#03,S759
CALL_VS R0044 (#04,#2b,G80) -> Gef
L0002: JE L00,#01 [FALSE] L0003
STOREW G80,#00,S760
STOREW G80,#01,S761
STOREW G80,#02,S762
STOREW G80,#03,S763
STOREW G80,#04,#00
STOREW G80,#05,S764
CALL_VS R0044 (#06,#32,G80) -> Gef
L0003: JE L00,#02 [FALSE] L0004
STOREW G80,#00,S765
STOREW G80,#01,S766
STOREW G80,#02,#00
STOREW G80,#03,S767
CALL_VS R0044 (#04,#28,G80) -> Gef
L0004: JE L00,#03 [FALSE] L0005
STOREW G80,#00,S768
STOREW G80,#01,#00
STOREW G80,#02,S769
CALL_VS R0044 (#03,#2a,G80) -> Gef
L0005: JE L00,#04 [FALSE] L0006
STOREW G80,#00,S770
STOREW G80,#01,S771
STOREW G80,#02,S772
STOREW G80,#03,S773
STOREW G80,#04,#00
STOREW G80,#05,S774
CALL_VS R0044 (#06,#23,G80) -> Gef
L0006: JE L00,#05 [FALSE] L0007
STOREW G80,#00,S775
STOREW G80,#01,S776
STOREW G80,#02,S777
STOREW G80,#03,#00
STOREW G80,#04,S778
CALL_VS R0044 (#05,#33,G80) -> Gef
L0007: JE L00,#06 [FALSE] L0008
STOREW G80,#00,S779
STOREW G80,#01,S780
STOREW G80,#02,#00
STOREW G80,#03,S781
CALL_VS R0044 (#04,#1c,G80) -> Gef
L0008: JE L00,#07 [FALSE] L0009
STOREW G80,#00,S782
STOREW G80,#01,S783
STOREW G80,#02,#00
STOREW G80,#03,S784
CALL_VS R0044 (#04,#25,G80) -> Gef
L0009: JE L00,#08 [FALSE] L0010
STOREW G80,#00,S785
STOREW G80,#01,S786
STOREW G80,#02,#00
STOREW G80,#03,S787
CALL_VS R0044 (#04,#2a,G80) -> Gef
L0010: JE L00,#09 [FALSE] L0011
STOREW G80,#00,S788
STOREW G80,#01,S789
STOREW G80,#02,#00
STOREW G80,#03,S790
CALL_VS R0044 (#04,#2e,G80) -> Gef
L0011: JE L00,#0a [FALSE] L0012
STOREW G80,#00,S791
STOREW G80,#01,S792
STOREW G80,#02,#00
STOREW G80,#03,S793
STOREW G80,#04,S794
CALL_VS R0044 (#05,#33,G80) -> Gef
L0012: JE L00,#0b [FALSE] L0013
STOREW G80,#00,S795
STOREW G80,#01,#00
STOREW G80,#02,S796
CALL_VS R0044 (#03,#1c,G80) -> Gef
L0013: JE L00,#0c [FALSE] L0014
STOREW G80,#00,S797
STOREW G80,#01,S798
STOREW G80,#02,S799
STOREW G80,#03,#00
STOREW G80,#04,S800
CALL_VS R0044 (#05,#2f,G80) -> Gef
L0014: JE L00,#0d [FALSE] L0015
STOREW G80,#00,S801
STOREW G80,#01,S802
STOREW G80,#02,#00
STOREW G80,#03,S803
CALL_VS R0044 (#04,#34,G80) -> Gef
L0015: JE L00,#0e [FALSE] L0016
STOREW G80,#00,S804
STOREW G80,#01,S805
STOREW G80,#02,#00
STOREW G80,#03,S806
CALL_VS R0044 (#04,#34,G80) -> Gef
L0016: JE L00,#0f [FALSE] L0017
STOREW G80,#00,S807
STOREW G80,#01,#00
STOREW G80,#02,S808
CALL_VS R0044 (#03,#34,G80) -> Gef
L0017: JE L00,#10 [FALSE] L0018
STOREW G80,#00,S809
STOREW G80,#01,S810
STOREW G80,#02,S811
STOREW G80,#03,S812
STOREW G80,#04,#00
STOREW G80,#05,S813
CALL_VS R0044 (#06,#1f,G80) -> Gef
L0018: JE L00,#11 [FALSE] L0019
STOREW G80,#00,S814
STOREW G80,#01,S815
STOREW G80,#02,#00
STOREW G80,#03,S816
CALL_VS R0044 (#04,#1c,G80) -> Gef
L0019: JE L00,#12 [FALSE] L0020
STOREW G80,#00,S817
STOREW G80,#01,S818
STOREW G80,#02,#00
STOREW G80,#03,S819
CALL_VS R0044 (#04,#30,G80) -> Gef
L0020: JE L00,#13 [FALSE] L0021
STOREW G80,#00,S820
STOREW G80,#01,S821
STOREW G80,#02,S822
STOREW G80,#03,S823
STOREW G80,#04,#00
STOREW G80,#05,S824
CALL_VS R0044 (#06,#30,G80) -> Gef
L0021: JE L00,#14 [FALSE] L0022
STOREW G80,#00,S825
STOREW G80,#01,S826
STOREW G80,#02,#00
STOREW G80,#03,S827
CALL_VS R0044 (#04,#30,G80) -> Gef
L0022: JE L00,#15 [FALSE] L0023
STOREW G80,#00,S828
STOREW G80,#01,S829
STOREW G80,#02,S830
STOREW G80,#03,#00
STOREW G80,#04,S831
CALL_VS R0044 (#05,#2f,G80) -> Gef
L0023: JE L00,#16 [FALSE] L0024
STOREW G80,#00,S832
STOREW G80,#01,S833
STOREW G80,#02,S834
STOREW G80,#03,S835
STOREW G80,#04,#00
STOREW G80,#05,S836
CALL_VS R0044 (#06,#1f,G80) -> Gef
L0024: JE L00,#17 [FALSE] L0025
STOREW G80,#00,S837
STOREW G80,#01,S838
STOREW G80,#02,S839
STOREW G80,#03,#00
STOREW G80,#04,S840
CALL_VS R0044 (#05,#34,G80) -> Gef
L0025: JE L00,#18 [FALSE] L0026
STOREW G80,#00,S841
STOREW G80,#01,S842
STOREW G80,#02,#00
STOREW G80,#03,S843
CALL_VS R0044 (#04,#30,G80) -> Gef
L0026: JE L00,#19 [FALSE] L0027
STOREW G80,#00,S844
STOREW G80,#01,S845
STOREW G80,#02,S846
STOREW G80,#03,S847
STOREW G80,#04,#00
STOREW G80,#05,S848
CALL_VS R0044 (#06,#2b,G80) -> Gef
L0027: JE L00,#1a [FALSE] L0028
STOREW G80,#00,S849
STOREW G80,#01,S850
STOREW G80,#02,S851
STOREW G80,#03,#00
STOREW G80,#04,S852
CALL_VS R0044 (#05,#34,G80) -> Gef
L0028: JE L00,#1c [FALSE] L0029
STOREW G80,#00,S853
STOREW G80,#01,S854
STOREW G80,#02,S855
STOREW G80,#03,S856
STOREW G80,#04,S857
STOREW G80,#05,S858
STOREW G80,#06,#00
STOREW G80,#07,S859
CALL_VS R0044 (#08,#3c,G80) -> Gef
L0029: JE L00,#1d [FALSE] L0030
STOREW G80,#00,S860
STOREW G80,#01,S861
STOREW G80,#02,#00
STOREW G80,#03,S862
CALL_VS R0044 (#04,#29,G80) -> Gef
L0030: JE L00,#1e [FALSE] L0031
STOREW G80,#00,S863
STOREW G80,#01,S864
STOREW G80,#02,#00
STOREW G80,#03,S865
CALL_VS R0044 (#04,#32,G80) -> Gef
L0031: JE L00,#1f [FALSE] L0032
STOREW G80,#00,S866
STOREW G80,#01,S867
STOREW G80,#02,S868
STOREW G80,#03,S869
STOREW G80,#04,#00
STOREW G80,#05,S870
CALL_VS R0044 (#06,#2f,G80) -> Gef
L0032: JE L00,#20 [FALSE] L0033
STOREW G80,#00,S871
STOREW G80,#01,S872
STOREW G80,#02,S873
STOREW G80,#03,S874
STOREW G80,#04,#00
STOREW G80,#05,S875
CALL_VS R0044 (#06,#2e,G80) -> Gef
L0033: JE L00,#21 [FALSE] L0034
STOREW G80,#00,S876
STOREW G80,#01,#00
STOREW G80,#02,S877
CALL_VS R0044 (#03,#2c,G80) -> Gef
L0034: JE L00,#22 [FALSE] L0035
STOREW G80,#00,S878
STOREW G80,#01,S879
STOREW G80,#02,S880
STOREW G80,#03,S881
STOREW G80,#04,#00
STOREW G80,#05,S882
CALL_VS R0044 (#06,#36,G80) -> Gef
L0035: JE L00,#23 [FALSE] L0036
STOREW G80,#00,S883
STOREW G80,#01,#00
STOREW G80,#02,S884
CALL_VS R0044 (#03,#2b,G80) -> Gef
L0036: JE L00,#24 [FALSE] L0037
STOREW G80,#00,S885
STOREW G80,#01,S886
STOREW G80,#02,S887
STOREW G80,#03,#00
STOREW G80,#04,S888
CALL_VS R0044 (#05,#2f,G80) -> Gef
L0037: JE L00,#25 [FALSE] L0038
STOREW G80,#00,S889
STOREW G80,#01,S890
STOREW G80,#02,#00
STOREW G80,#03,S891
CALL_VS R0044 (#04,#22,G80) -> Gef
L0038: JE L00,#26 [FALSE] L0039
STOREW G80,#00,S892
STOREW G80,#01,S893
STOREW G80,#02,#00
STOREW G80,#03,S894
CALL_VS R0044 (#04,#32,G80) -> Gef
L0039: JE L00,#27 [FALSE] L0040
STOREW G80,#00,S895
STOREW G80,#01,S896
STOREW G80,#02,#00
STOREW G80,#03,S897
CALL_VS R0044 (#04,#2a,G80) -> Gef
L0040: JE L00,#28 [FALSE] L0041
STOREW G80,#00,S898
STOREW G80,#01,S899
STOREW G80,#02,#00
STOREW G80,#03,S900
CALL_VS R0044 (#04,#2d,G80) -> Gef
L0041: JE L00,#29 [FALSE] L0042
STOREW G80,#00,S901
STOREW G80,#01,S902
STOREW G80,#02,S903
STOREW G80,#03,S904
STOREW G80,#04,#00
STOREW G80,#05,S905
CALL_VS R0044 (#06,#17,G80) -> Gef
L0042: JE L00,#2a [FALSE] L0043
STOREW G80,#00,S906
STOREW G80,#01,S907
STOREW G80,#02,#00
STOREW G80,#03,S908
CALL_VS R0044 (#04,#26,G80) -> Gef
L0043: JE L00,#2b [FALSE] L0044
STOREW G80,#00,S909
STOREW G80,#01,S910
STOREW G80,#02,S911
STOREW G80,#03,S912
STOREW G80,#04,S913
STOREW G80,#05,S914
STOREW G80,#06,#00
STOREW G80,#07,S915
CALL_VS R0044 (#08,#32,G80) -> Gef
L0044: JE L00,#2c [FALSE] L0045
STOREW G80,#00,S916
STOREW G80,#01,S917
STOREW G80,#02,S918
STOREW G80,#03,S919
STOREW G80,#04,S920
STOREW G80,#05,#00
STOREW G80,#06,S921
CALL_VS R0044 (#07,#2d,G80) -> Gef
L0045: JE L00,#2d [FALSE] L0046
STOREW G80,#00,S922
STOREW G80,#01,S923
STOREW G80,#02,#00
STOREW G80,#03,S924
CALL_VS R0044 (#04,#28,G80) -> Gef
L0046: JE L00,#2e [FALSE] L0047
STOREW G80,#00,S925
STOREW G80,#01,S926
STOREW G80,#02,S927
STOREW G80,#03,#00
STOREW G80,#04,S928
CALL_VS R0044 (#05,#30,G80) -> Gef
L0047: JE L00,#2f [FALSE] L0048
STOREW G80,#00,S929
STOREW G80,#01,S930
STOREW G80,#02,S931
STOREW G80,#03,S932
STOREW G80,#04,S933
STOREW G80,#05,S934
STOREW G80,#06,#00
STOREW G80,#07,S935
CALL_VS R0044 (#08,#27,G80) -> Gef
L0048: RTRUE
Routine R0044, 8 locals
ADD L00,#06 -> -(SP)
SPLIT_WINDOW (SP)+
SET_WINDOW #01
LOADB #00,#21 -> L03
JE L03,#00 [FALSE] L0001
STORE L03,#50
L0001: SUB L03,L01 -> -(SP)
DIV (SP)+,#02 -> L04
SET_TEXT_STYLE REVERSE
SUB L04,#02 -> L03
STORE L05,#05
STORE L06,#00
SET_CURSOR #04,L03
ADD L01,#04 -> -(SP)
STORE Gef,(SP)+
JL Gef,#01 [TRUE] L0003
L0002: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0002
L0003: SET_CURSOR L05,L03
ADD L01,#04 -> -(SP)
STORE Gef,(SP)+
JL Gef,#01 [TRUE] L0005
L0004: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0004
L0005: SET_CURSOR L05,L04
LOADW L02,L06 -> L07
JE L07,#00 [TRUE] L0006
PRINT_PADDR L07
L0006: INC L05
INC L06
JE L06,L00 [FALSE] L0003
SET_CURSOR L05,L03
ADD L01,#04 -> -(SP)
STORE Gef,(SP)+
JL Gef,#01 [TRUE] L0008
L0007: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0007
L0008: BUFFER_MODE #01
SET_TEXT_STYLE ROMAN
SET_WINDOW #00
SPLIT_WINDOW #01
OUTPUT_STREAM #ffff
PRINT "[ "
STORE L06,#00
L0009: LOADW L02,L06 -> L03
JE L03,#00 [TRUE] L0010
PRINT_PADDR L03
L0010: INC L06
JE L06,L00 [FALSE] L0011
PRINT "]
"
JUMP L0012
L0011: PRINT "
"
JUMP L0009
L0012: OUTPUT_STREAM OUTPUT_ENABLE
RTRUE
Routine R0045, 0 locals
Action routine for:
"etch SPECIAL"
PRINT_RET "Graffiti is uncouth."
Routine R0046, 0 locals
Action routine for:
"etch SPECIAL on NOUN"
TEST_ATTR G4e,#20 [FALSE] L0001
PRINT_RET "The silver plaque is extremely strong, and resists all
attempts to mark it."
L0001: CALL_1N R0045
RTRUE
Routine R0047, 1 local
GET_PARENT L00 -> -(SP)
JE (SP)+,G03 [FALSE] L0002
TEST_ATTR L00,#12 [TRUE] L0001
TEST_ATTR L00,#13 [FALSE] L0002
L0001: RTRUE
L0002: RFALSE
Routine R0048, 0 locals
Action routine for:
"l at NOUN in NOUN"
"check reflectio of NOUN"
"check NOUN in NOUN"
JE G4e,#0125,#00 [TRUE] L0001
PRINT_RET "The point of which escapes me."
L0001: JE G4d,G03 [FALSE] L0002
PRINT_RET "In the mirror is one of the most strikingly attractive
people you have ever seen in all your born days."
L0002: JE G4d,#019d [FALSE] L0003
PRINT "In the mirror is a model of a mischievous-looking
monkey, which wriggles as it comes alive!"
SET_ATTR "model of an animal so ugly you can't bear to look at
it",#19
CALL_1N R0049
RTRUE
L0003: CALL_2S R0047 (G4d) -> -(SP)
JE (SP)+,#01 [FALSE] L0004
PRINT_RET "Curiously, it casts no reflection in the mirror."
L0004: PRINT "In the mirror is the reflection of "
CALL_2N R0290 (G4d)
PRINT_RET "."
Routine R0049, 0 locals
REMOVE_OBJ "model of an animal so ugly you can't bear to look at
it"
CLEAR_ATTR "model of an animal so ugly you can't bear to look at
it",#19
INSERT_OBJ "pet monkey","Stone Cross"
INSERT_OBJ "Old Evans","Stone Cross"
PUT_PROP "Old Evans",#02,S936
PRINT "
Now that you have finally been able to look it in the eyes, the monkey leaps
from your arms, revelling in its new life, and scampers away through the
windows onto the balcony, then up and over the side of the house. You can just
make it out as it races down the footpath.
"
RTRUE
Routine R0050, 3 locals
JE G4c,#43 [FALSE] L0001
PRINT_RET "What, and earn seven years bad luck?"
L0001: JE G4c,#18,#1a [TRUE] L0002
RFALSE
L0002: CALL_2N R0041 (#15)
PRINT "In the mirror is one of the most strikingly attractive
people you have ever seen in all your born days"
STORE L01,#00
GET_CHILD G03 -> L00 [TRUE] L0003
L0003: JE L00,#00 [TRUE] L0006
CALL_2S R0047 (L00) -> -(SP)
JE (SP)+,#00 [FALSE] L0004
INC L01
L0004: GET_SIBLING L00 -> L00 [TRUE] L0005
L0005: JUMP L0003
L0006: JE L01,#00 [FALSE] L0007
PRINT_RET "."
L0007: PRINT ", carrying "
STORE L02,#00
GET_CHILD G03 -> L00 [TRUE] L0008
L0008: JE L00,#00 [TRUE] L0016
CALL_2S R0047 (L00) -> -(SP)
JE (SP)+,#00 [FALSE] L0014
JE L00,#019d [FALSE] L0009
PRINT "a model of a mischievous-looking monkey, which wriggles
as it comes alive"
SET_ATTR "model of an animal so ugly you can't bear to look at
it",#19
JUMP L0010
L0009: CALL_2N R0289 (L00)
L0010: SUB L01,#02 -> -(SP)
JL L02,(SP)+ [FALSE] L0011
PRINT ", "
L0011: SUB L01,#02 -> -(SP)
JE L02,(SP)+ [FALSE] L0012
PRINT " and "
L0012: SUB L01,#01 -> -(SP)
JE L02,(SP)+ [FALSE] L0013
PRINT ".
"
L0013: INC L02
L0014: GET_SIBLING L00 -> L00 [TRUE] L0015
L0015: JUMP L0008
L0016: TEST_ATTR "model of an animal so ugly you can't bear to look at
it",#19 [FALSE] L0017
CALL_1N R0049
L0017: RTRUE
Routine R0051, 0 locals
JE G4c,#43 [TRUE] L0001
JE G4c,#21 [FALSE] L0002
L0001: REMOVE_OBJ "framed charcoal sketch"
INSERT_OBJ "charcoal sketch",G00
INSERT_OBJ "dog-eared old letter",G00
PRINT_RET "Breaking open the frame looses the sketch, which falls
to the floor."
L0002: RFALSE
Routine R0052, 0 locals
JE G4c,#18 [TRUE] L0001
RFALSE
L0001: PRINT "A faint typewritten letter, postmarked Cairo, October
1920, with a handwritten note signed simply "Ellingsworth":
Hartley - Thought you might be able to date some of these queer pictograms and
determinitives, early New Kingdom? Pottery unclear, work continues
"
LOADW #00,#08 -> -(SP)
OR #02,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
PRINT "
:: and # the #. this
:; but +*+ god/spirit? (()) all
= of [] house/building ||| indicates plural
-> through >>> moves <> item/thing?
__ sits/lies/rests/is near / to/toward
"
LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
RTRUE
Routine R0053, 0 locals
JE G4c,#18 [FALSE] L0001
PRINT "The stone bears two inscriptions, side by side:
"
LOADW #00,#08 -> -(SP)
OR #02,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
PRINT "
#. [] = # +*+ __ an-ta re-im ka u bir ka-i
|||
| |
/ # -+- :; # -+- ka ne : to-ro-ma ka ur
| |
>>> -> # (---) .je-fe-im ka ur-a an-ge to-ro-ma
|||
"
LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
RTRUE
L0001: RFALSE
Routine R0054, 0 locals
JE G4c,#18 [FALSE] L0001
PRINT "Your dream eye is caught by...
"
LOADW #00,#08 -> -(SP)
OR #02,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
PRINT " (|/
# -o- >>>
/|)
"
LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
PRINT_RET "
Confused and hazy, you feel you can understand hieroglyphics, - or hasn't that
happened yet?"
L0001: RFALSE
Routine R0055, 0 locals
JE G4c,#18 [FALSE] L0001
LOADW #00,#08 -> -(SP)
OR #02,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
PRINT " (---) (---) (---) (---)
"
LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
RTRUE
L0001: RFALSE
Routine R0056, 0 locals
JE G4c,#08 [FALSE] L0003
JE G4d,#0150,#74 [FALSE] L0003
JE G4e,#0157 [FALSE] L0003
TEST_ATTR "inscriptions",#0a [FALSE] L0003
SET_ATTR G4d,#0f
CLEAR_ATTR G4d,#06
INSERT_OBJ G4d,G00
JE G4d,#0150 [FALSE] L0001
PUT_PROP G4d,#04,S937
JUMP L0002
L0001: PUT_PROP G4d,#04,S938
L0002: PRINT "You wedge "
CALL_2N R0290 (G4d)
PRINT_RET " across the opening."
L0003: JE G4c,#02 [FALSE] L0004
JE G4d,#0150,#74 [FALSE] L0004
TEST_ATTR G4d,#0f [FALSE] L0004
CLEAR_ATTR G4d,#0f
SET_ATTR G4d,#06
L0004: RFALSE
Routine R0057, 0 locals
JE G4c,#02 [FALSE] L0003
TEST_ATTR "gleaming amber gem",#06 [TRUE] L0003
PRINT "There is a horrible screeching sound as a trap is
sprung. "
TEST_ATTR "inscribed stone",#0f [TRUE] L0001
TEST_ATTR "old timber spar",#0f [FALSE] L0002
L0001: PRINT "The walls begin to crush together: but are securely
wedged, and cannot move...
"
RFALSE
L0002: STORE G05,#01
PRINT_RET "The opening crushes together, and so do the walls!
They reduce you to powdered dog biscuit in a matter of seconds."
L0003: RFALSE
Routine R0058, 0 locals
JE G4c,#18 [FALSE] L0001
TEST_ATTR "gilded model coffin",#0a [FALSE] L0001
PRINT "The inscription is in strange hieroglyphics:
"
LOADW #00,#08 -> -(SP)
OR #02,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
PRINT "
(()) #+*+ <> ->#.
|||
"
LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
RTRUE
L0001: JE G4c,#21 [FALSE] L0002
TEST_ATTR "gilded model coffin",#19 [FALSE] L0002
TEST_ATTR "old gardeners' gloves",#02 [TRUE] L0002
STORE G05,#03
PRINT_RET "There is a flash and then everything goes dark!
You were given a nasty shock by that coffin. "Must have been some old wiring,"
says a doctor, leaning over you in hospital."
L0002: RFALSE
Routine R0059, 1 local
CLEAR_ATTR L00,#20
GET_PROP L00,#1f -> -(SP)
GET_PROP L00,#1d -> -(SP)
CALL_VN R0150 ((SP)+,(SP)+)
GET_PROP L00,#1e -> -(SP)
GET_PROP_ADDR L00,#01 -> -(SP)
STOREW (SP)+,#02,(SP)+
GET_PROP L00,#1e -> -(SP)
GET_PROP_ADDR L00,#01 -> -(SP)
STOREW (SP)+,#03,(SP)+
PUT_PROP L00,#03,S939
RTRUE
Routine R0060, 1 local
JE G4c,#23 [FALSE] L0005
GET_CHILD "gilded model coffin" -> L00 [TRUE] L0001
L0001: JE L00,#00 [TRUE] L0004
TEST_ATTR L00,#20 [FALSE] L0002
CALL_2N R0059 (L00)
SET_ATTR "gilded model coffin",#19
PUT_PROP "gilded model coffin",#04,S940
PRINT_RET "The coffin sparks, spitting with electricity and begins
throbbing with a life of its own!"
L0002: GET_SIBLING L00 -> L00 [TRUE] L0003
L0003: JUMP L0001
L0004: PUT_PROP "gilded model coffin",#04,S941
CLEAR_ATTR "gilded model coffin",#19
L0005: JE G4c,#21 [FALSE] L0006
PUT_PROP "gilded model coffin",#04,S942
L0006: RFALSE
Routine R0061, 0 locals
JE G4c,#02,#03 [FALSE] L0001
TEST_ATTR G4d,#12 [FALSE] L0001
TEST_ATTR G4d,#20 [TRUE] L0001
CALL_2N R0040 (#1c)
L0001: JE G4c,#08 [FALSE] L0002
TEST_ATTR G4d,#20 [FALSE] L0002
JE G4e,#0133 [FALSE] L0002
TEST_ATTR G4e,#0a [FALSE] L0002
PRINT_RET "The mahogany rod fits in perfectly."
L0002: RFALSE
Routine R0062, 0 locals
JE G4c,#13 [FALSE] L0001
JE G4d,#0a [TRUE] L0002
L0001: RFALSE
L0002: GET_PROP "Dead End",#0b -> -(SP)
JE (SP)+,#00 [TRUE] L0003
RFALSE
L0003: PRINT_RET "The fire escape is perilous and leads nowhere.
Doubtless it would be useless in any real fire."
Routine R0063, 0 locals
RFALSE
Routine R0064, 0 locals
JE G4c,#08 [FALSE] L0002
JE G4e,#013c [FALSE] L0002
JE G4d,#4e [TRUE] L0001
PRINT_RET "Doesn't seem right there, somehow."
L0001: INSERT_OBJ "painting of Mad Isaac Meldrewe","White Hallway"
CLEAR_ATTR "painting of Mad Isaac Meldrewe",#06
PUT_PROP "painting of Mad Isaac Meldrewe",#04,S943
PRINT_RET "You hang up Mad Isaac, who seems ideally placed there."
L0002: RFALSE
Routine R0065, 0 locals
CALL_2N R0041 (#16)
RFALSE
Routine R0066, 0 locals
JE G4c,#13 [FALSE] L0001
JE G4d,#02 [FALSE] L0001
SET_ATTR "flock of sparrows",#19
PRINT "Your first step towards the sparrows startles them into
the air, and they whirl upwards and around with panic, chirping their alarm.
"
L0001: RFALSE
Routine R0067, 0 locals
TEST_ATTR "gold watch on a chain",#06 [TRUE] L0001
PRINT_RET "The watch is just within sight, but beyond reach."
L0001: JE G4c,#57,#35 [FALSE] L0002
PRINT_RET "You come dangerously close to hypnotising yourself."
L0002: RFALSE
Routine R0068, 0 locals
Action routine for:
"hypnotise CREATURE"
GET_PARENT "gold watch on a chain" -> -(SP)
JE (SP)+,G03 [TRUE] L0001
PRINT_RET "Unaided, you are unable to make any impression."
L0001: PRINT "You set the gold watch swinging, back and forth,
spinning the light. "
JE G4d,#016d [FALSE] L0002
SET_ATTR "Old Evans",#19
PRINT_RET "Old Evans, who is nine-tenths hypnotised most of the
time anyway, succumbs easily."
L0002: JE G4d,G03 [FALSE] L0003
CALL_1N R0312
RFALSE
L0003: PRINT "But "
CALL_2N R0290 (G4d)
PRINT_RET " seems too strong-willed, and impervious to hypnosis."
Routine R0069, 0 locals
JE G4c,#13 [FALSE] L0001
JE G4d,#03 [FALSE] L0001
TEST_ATTR "flock of sparrows",#19 [FALSE] L0001
CLEAR_ATTR "flock of sparrows",#19
PRINT "As you step out, the sparrows gradually settle back
down again.
"
L0001: RFALSE
Routine R0070, 0 locals
JE G4c,#17 [TRUE] L0001
RFALSE
L0001: TEST_ATTR "flock of sparrows",#19 [TRUE] L0002
PRINT "
Sparrows chirp happily away to themselves around the high gutter.
"
JUMP L0003
L0002: PRINT "
Startled sparrows circle high in the sky, showing no signs of calming down.
"
L0003: RFALSE
Routine R0071, 0 locals
JE G4c,#35 [TRUE] L0001
RFALSE
L0001: PRINT_RET "Apparently, it's not susceptible to that."
Routine R0072, 0 locals
JE G4c,#18 [TRUE] L0001
RFALSE
L0001: TEST_ATTR " ",#19 [FALSE] L0002
RFALSE
L0002: SET_ATTR " ",#19
CALL_VN R0150 (#1c,#019c)
GET_PROP_ADDR " ",#01 -> -(SP)
STOREW (SP)+,#03,"spade"
PRINT_RET "On second thoughts, let's just call a spade a spade."
Routine R0073, 1 local
JL L00,#00 [FALSE] L0001
SUB #00,L00 -> L00
L0001: JE L00,#00 [FALSE] L0002
PRINT "nought"
L0002: JE L00,#01 [FALSE] L0003
PRINT "a pace"
RFALSE
L0003: JE L00,#02 [FALSE] L0004
PRINT "two"
L0004: JE L00,#03 [FALSE] L0005
PRINT "three"
L0005: JE L00,#04 [FALSE] L0006
PRINT "four"
L0006: JE L00,#05 [FALSE] L0007
PRINT "five"
L0007: JE L00,#06 [FALSE] L0008
PRINT "six"
L0008: JE L00,#07 [FALSE] L0009
PRINT "seven"
L0009: JE L00,#08 [FALSE] L0010
PRINT "eight"
L0010: JE L00,#09 [FALSE] L0011
PRINT "nine"
L0011: JE L00,#0a [FALSE] L0012
PRINT "ten"
L0012: JE L00,#0b [FALSE] L0013
PRINT "eleven"
L0013: JE L00,#0c [FALSE] L0014
PRINT "twelve"
L0014: PRINT " paces"
RTRUE
Routine R0074, 0 locals
JE G4c,#1a,#18 [FALSE] L0002
JE G4d,#e7 [FALSE] L0002
TEST_ATTR "model ship",#19 [TRUE] L0001
PRINT_RET "Nothing else."
L0001: CLEAR_ATTR "model ship",#19
SET_ATTR "model ship",#06
INSERT_OBJ "model ship",G03
PRINT_RET "In fact there's nothing hidden among the crates but a
model sailing ship. You pick it up from force of habit."
L0002: RFALSE
Routine R0075, 0 locals
JE G4c,#18 [FALSE] L0002
GET_PARENT "ship in a bottle" -> -(SP)
JE (SP)+,G03 [TRUE] L0001
PRINT_RET "You can't get a good look from here."
L0001: INSERT_OBJ G03,"Aboard Ship"
STORE G00,#01c8
INSERT_OBJ "ship in a bottle","Souvenirs Room"
PRINT_RET "You look very closely at the fine detail on the model
sailing ship. Perhaps it's the distorting glass of the bottle, perhaps your
romantic imagination, but the deck seems more detailed, the rigging might
almost be swaying, the little figure by one mast might almost be alive...
In fact, the closer you look the more sea-sick you feel.
Thank heavens for the deck rail, something to hang on to while this moment of
queasiness passes.
"
L0002: RFALSE
Routine R0076, 0 locals
CALL_2N R0041 (#0b)
RFALSE
Routine R0077, 0 locals
JE G4c,#35 [FALSE] L0003
JE G00,#0168 [FALSE] L0001
GET_PARENT "corn crake" -> -(SP)
JE (SP)+,#00 [FALSE] L0002
L0001: PRINT_RET "Well, you can hardly be blamed for trying."
L0002: REMOVE_OBJ "corn crake"
PRINT_RET "The bird is so startled by the waved branch that she
leaps into the skies, squawking with flighty anxiety."
L0003: RFALSE
Routine R0078, 0 locals
JE G4c,#08 [FALSE] L0002
JE G4e,#5c [FALSE] L0002
JE G4d,#01cb [FALSE] L0001
CLEAR_ATTR "comfortable bed",#0e
SET_ATTR "comfortable bed",#0f
PUT_PROP "comfortable bed",#04,S944
INSERT_OBJ "flag of the British Merchant Navy","comfortable bed"
PRINT_RET "You spread the flag over the bed as a blanket."
JUMP L0002
L0001: PRINT_RET "That seems unlikely to make a good blanket."
L0002: JE G4c,#4e [FALSE] L0004
GET_PARENT G03 -> -(SP)
JE (SP)+,#5c [FALSE] L0004
GET_PARENT "flag of the British Merchant Navy" -> -(SP)
JE (SP)+,#5c [TRUE] L0003
PRINT_RET "Awareness that something important is happening tugs at
your subconscious.
But you feel too exposed to sleep with only a sheet on the bed, and can't get
comfortable."
L0003: CALL_2N R0040 (#1a)
L0004: RFALSE
Routine R0079, 0 locals
JE G4c,#02,#3d,#3b [TRUE] L0001
JE G4c,#39 [FALSE] L0002
L0001: JE G4d,#01ca [FALSE] L0002
PRINT_RET "The flagpole is very securely fixed to the main mast."
L0002: JE G4c,#02,#39 [FALSE] L0003
JE G4d,#01cb [FALSE] L0003
SET_ATTR "flag of the British Merchant Navy",#19
PRINT_RET "You take hold of the tassels of the flag in one hand
(though it won't pull away from the pole)."
L0003: JE G4c,#09,#03 [FALSE] L0004
JE G4d,#01cb [FALSE] L0004
CLEAR_ATTR "flag of the British Merchant Navy",#19
PRINT_RET "You leave hold of the tassels of the flag."
L0004: JE G4c,#6c [FALSE] L0006
PRINT "You jump (madly) from the crow's nest "
TEST_ATTR "flag of the British Merchant Navy",#19 [FALSE] L0005
PRINT "(tearing the flag as you go) "
L0005: STORE G05,#01
PRINT_RET "to a colourful demise on the deck below."
L0006: JE G4c,#80 [FALSE] L0008
PRINT "You wander out onto the flagpole, which bows and bends
alarmingly, until suddenly...
"
TEST_ATTR "flag of the British Merchant Navy",#19 [TRUE] L0007
STORE G05,#01
PRINT_RET "Crack! And you are falling, plummeting, head over
heels to the hard wooden deck and the inevitable iron fixtures..."
L0007: INSERT_OBJ "flag of the British Merchant Navy","Aboard Ship"
CLEAR_ATTR "flag of the British Merchant Navy",#01
CLEAR_ATTR "flag of the British Merchant Navy",#19
REMOVE_OBJ "flagpole"
INSERT_OBJ "old timber spar","Aboard Ship"
INSERT_OBJ G03,"Aboard Ship"
STORE G00,#01c8
CALL_2N R0040 (#19)
PRINT_RET "Crack! And you are falling... but gracefully, as the
flag billows out into a parachute, until it suddenly tears out of your hand and
you come down in an ignominious heap."
L0008: JE G4c,#4f,#51 [FALSE] L0009
PRINT_RET "Up here?"
L0009: JE G4c,#13 [FALSE] L0010
JE G4d,#0b [FALSE] L0010
TEST_ATTR "flag of the British Merchant Navy",#19 [FALSE] L0010
CLEAR_ATTR "flag of the British Merchant Navy",#19
PRINT "You are obliged to leave hold of the flag en route.
"
L0010: RFALSE
Routine R0080, 0 locals
JE G4c,#13,#04 [FALSE] L0002
JE G4d,#0b,#01cf [FALSE] L0002
TEST_ATTR "capstan",#19 [TRUE] L0001
PRINT_RET "You shin precariously down the anchor chain, but reach
the end while still hanging very far above the... water? quicksand?
Concentrating very carefully, you heave yourself back aboard and pant with
relief."
L0001: INSERT_OBJ G03,"Souvenirs Room"
STORE G00,#42
PRINT_RET "You shin down the anchor chain, down, down, under the
keel of the Lady Magdalena, down until there is nothing but the glassy mist and
the endless chain...
...And the approaching soft, spongy, pinkish sand-bank, which welcomes you with
its warmth: you step ashore, and immediately sink into the clammy, living sand,
until you are engulfed altogether... and pass out.
However, the hard attic floorboards beneath your back soon wake you again."
L0002: JE G4c,#3d [FALSE] L0005
PRINT "You heave away at the capstan, "
TEST_ATTR "capstan",#19 [FALSE] L0003
CLEAR_ATTR "capstan",#19
JUMP L0004
L0003: SET_ATTR "capstan",#19
PRINT "un"
L0004: PRINT_RET "winding the great anchor chain."
L0005: RFALSE
Routine R0081, 0 locals
JE G4c,#39 [FALSE] L0002
JE G4d,#ea [FALSE] L0001
REMOVE_OBJ "model ship"
INSERT_OBJ "stick with an anchor",G03
STORE G71,#eb
SET_ATTR G71,#06
PRINT_RET "As you pull the anchor chain, the masts fold inwards
and the decks concertina back, until you're holding no more than a tight bundle
of sticks."
L0001: REMOVE_OBJ "stick with an anchor"
INSERT_OBJ "model ship",G03
STORE G71,#ea
PRINT_RET "As you pull the anchor chain, the sticks spring back
outwards into the fully-rigged model sailing ship you knew of old."
L0002: JE G4c,#08 [FALSE] L0004
JE G4e,#e8 [FALSE] L0004
JE G4d,#ea [FALSE] L0003
PRINT_RET "The model ship is, of course, far too large to fit into
the bottle."
L0003: REMOVE_OBJ "mounted bottle"
REMOVE_OBJ "stick with an anchor"
INSERT_OBJ "ship in a bottle",G03
SET_ATTR "ship in a bottle",#06
CALL_2N R0040 (#18)
PRINT_RET "The bundle of sticks will just fit through the bottle's
neck. With a sudden spring, just as the last of the stick passes the neck, its
masts fold out... and you have put the ship into the bottle."
L0004: JE G4c,#35 [FALSE] L0005
JE G4d,#eb [FALSE] L0005
PRINT_RET "Ever the optimist."
L0005: RFALSE
Routine R0082, 0 locals
JE G81,#03 [FALSE] L0001
PRINT_RET "The priestess has told you enough."
L0001: TEST_ATTR "Oracle",#19 [TRUE] L0002
PRINT_RET "The priestess remains silent. Only by an offering can
the wisdom of Apollo be gained."
L0002: CLEAR_ATTR "Oracle",#19
INC G81
PRINT "The priestess, Pythian oracle of Loxias, seems hardly
to hear or understand: but goes into a trance, swaying to a sensuous rhythm:
and chants, in English,
"
JE G81,#01 [FALSE] L0003
PRINT " "As Hephaestus, master of the metals
uncovered the gilden sunrise of Helicon
so, in "
CALL_2N R0073 (G36)
PRINT " and "
CALL_2N R0073 (G37)
PRINT "
when six arches have stood sixty years
shall even a shade's remains be cast.""
L0003: JE G81,#02 [FALSE] L0004
PRINT " "Like the eruptions of Sicilian mounts
shall come devices to ruin a castle,
which no bronze armour can withstand
save, it may be, a veil of the neck.""
L0004: JE G81,#03 [FALSE] L0005
PRINT " "Your ancestor, pestle in hand
made the salve you shall need
to defy the Druids' earthly band:
take care, mortal, take heed.""
L0005: NEW_LINE
JE G81,#01 [FALSE] L0006
PRINT "
Apollo is what you might call an annoying git, were he not also an alarmingly
powerful deity.
"
L0006: RTRUE
Routine R0083, 0 locals
CALL_2N R0041 (#29)
GET_PARENT "corn crake" -> -(SP)
JE (SP)+,#0168 [FALSE] L0001
PRINT_RET "The corn crake won't let you near her nest."
L0001: RFALSE
Routine R0084, 0 locals
JE G4c,#3b [FALSE] L0001
PRINT_RET "Perhaps you should say which way to push."
L0001: RFALSE
Routine R0085, 0 locals
JE G4c,#08 [TRUE] L0001
RFALSE
L0001: JE G4e,#0164 [TRUE] L0002
RFALSE
L0002: REMOVE_OBJ G4d
JE G4d,#0165 [FALSE] L0003
INSERT_OBJ "fig","Outside Taverna"
PUT_PROP "fig",#04,S945
CLEAR_ATTR "fig",#06
L0003: TEST_ATTR G4d,#1a [FALSE] L0004
SET_ATTR "Oracle",#19
PRINT_RET "You have pleased the god Apollo - Loxias, god of words
and counsel, as he was once called! Very wise."
L0004: PRINT_RET "The god Apollo is unimpressed with your offering, which
feeds the eternal flame."
Routine R0086, 0 locals
JE G4c,#21,#3b,#39 [TRUE] L0001
JE G4c,#3d [FALSE] L0002
L0001: GET_PARENT "irate squirrel friend" -> -(SP)
JE (SP)+,#0145 [FALSE] L0002
PRINT_RET "The squirrel rears up and nips you on the wrist. You
withdraw, hurt."
L0002: RFALSE
Routine R0087, 0 locals
JE G4c,#1a [FALSE] L0001
PRINT_RET "Through the crack you can see sunlight on the
summer-house floorboards."
L0001: RFALSE
Routine R0088, 0 locals
JE G4c,#08 [FALSE] L0002
JE G4e,#0147 [FALSE] L0002
JE G4d,#016a [FALSE] L0001
SET_ATTR "loose board",#0a
INSERT_OBJ "bunch of nuts","irate squirrel friend"
INSERT_OBJ "irate squirrel friend","Summer House"
CALL_1N R0089
PUT_PROP "Summer House",#09,#0145
PRINT_RET "You throw the nuts through the loose board into the
summer house, and the squirrel jumps up after them, battering through the board
and opening up a hole in the wall."
L0001: INSERT_OBJ G4d,"Summer House"
PRINT_RET "Thrown through the loose board into the summer house."
L0002: RFALSE
Routine R0089, 0 locals
PUT_PROP "irate squirrel friend",#04,S946
RTRUE
Routine R0090, 0 locals
JE G4c,#13 [FALSE] L0001
STORE G34,#00
STORE G35,#00
L0001: RFALSE
Routine R0091, 0 locals
Action routine for:
"pace"
CALL_VN R0094 (#01,#04)
RTRUE
Routine R0092, 0 locals
Action routine for:
"get a pace NOUN"
"go a pace NOUN"
"pace NOUN"
CALL_VN R0094 (#01,G4d)
RTRUE
Routine R0093, 0 locals
Action routine for:
"go SPECIAL paces NOUN"
"pace SPECIAL paces NOUN"
JG G51,#00 [TRUE] L0001
PRINT_RET "How many paces was that?"
L0001: JG G51,#19 [FALSE] L0002
PRINT_RET "That's too many paces at once!"
L0002: CALL_VN R0094 (G51,G4e)
RTRUE
Routine R0094, 6 locals
JE G00,#0149 [TRUE] L0001
PRINT_RET "You pace up and down, Holmes-fashion."
L0001: JE L01,#00 [FALSE] L0002
PRINT_RET "Perhaps you should say which way to pace."
L0002: GET_PARENT L01 -> -(SP)
JE (SP)+,#01 [TRUE] L0003
PRINT_RET "What?"
L0003: JE L01,#02 [FALSE] L0004
STORE L03,#01
L0004: JE L01,#03 [FALSE] L0005
STORE L03,#ffff
L0005: JE L01,#04 [FALSE] L0006
STORE L02,#01
L0006: JE L01,#05 [FALSE] L0007
STORE L02,#ffff
L0007: JE L01,#06 [FALSE] L0008
STORE L02,#01
STORE L03,#01
L0008: JE L01,#07 [FALSE] L0009
STORE L02,#ffff
STORE L03,#01
L0009: JE L01,#08 [FALSE] L0010
STORE L02,#01
STORE L03,#ffff
L0010: JE L01,#09 [FALSE] L0011
STORE L02,#ffff
STORE L03,#ffff
L0011: JE L02,#00 [FALSE] L0012
JE L03,#00 [FALSE] L0012
PRINT_RET "Hardly!"
L0012: MUL L02,L00 -> -(SP)
ADD G34,(SP)+ -> L04
MUL L03,L00 -> -(SP)
ADD G35,(SP)+ -> L05
JL L04,#0d [FALSE] L0013
JG L04,#fff3 [FALSE] L0013
JL L05,#0d [FALSE] L0013
JG L05,#fff3 [TRUE] L0014
L0013: PRINT_RET "That would go past the edge of the lawn."
L0014: STORE G34,L04
STORE G35,L05
CALL_2N R0198 (#01)
RTRUE
Routine R0095, 0 locals
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: JE G4d,#0a [TRUE] L0002
RFALSE
L0002: PUT_PROP "Servant's Room",#12,#014e
PUT_PROP "Servant's Room",#09,#014e
INSERT_OBJ "tight door","Servant's Room"
PRINT "The staircase leads up into...
"
RFALSE
Routine R0096, 0 locals
JE G4c,#02 [FALSE] L0001
PRINT_RET "Austin sidles out of reach resentfully, then belches."
L0001: JE G4c,#43 [FALSE] L0002
PRINT_RET "It is so pathetically easy to kick Austin that you
never quite have the heart. Thus he outwits you again."
L0002: RFALSE
Routine R0097, 1 local
PRINT "
Austin "
RANDOM #06 -> L00
JE L00,#01 [FALSE] L0001
PRINT "preens himself"
L0001: JE L00,#02 [FALSE] L0002
PRINT "wriggles"
L0002: JE L00,#03 [FALSE] L0003
PRINT "springs about"
L0003: JE L00,#04 [FALSE] L0004
PRINT "frisks"
L0004: JE L00,#05 [FALSE] L0005
PRINT "purrs"
L0005: JE L00,#06 [FALSE] L0006
PRINT "hisses"
L0006: RANDOM #03 -> L00
JE L00,#01 [FALSE] L0007
PRINT_RET " contentedly."
L0007: JE L00,#02 [FALSE] L0008
PRINT_RET " happily."
L0008: PRINT_RET " cheerfully."
Routine R0098, 4 locals
GET_PARENT "Austin" -> L01
STORE L03,#ffff
JE L00,#01 [FALSE] L0001
STORE L01,G00
JUMP L0018
L0001: JE L01,#83 [FALSE] L0004
INSERT_OBJ "Austin","Aunt Jemima's Lair"
JE G00,#83 [FALSE] L0002
PRINT_RET "
Jemima catches sight of Austin, and without warning jumps on the spot,
startling him. He springs away, hissing."
L0002: JE G00,#7e [FALSE] L0003
PRINT_RET "
Austin springs in from the potting room like a scalded cat, but hastily
rearranges himself to his usual "cool slob" demeanour."
L0003: RFALSE
L0004: RANDOM #0a -> L02
JG L02,#08 [FALSE] L0005
JUMP L0014
L0005: JE L01,G00 [TRUE] L0006
RFALSE
L0006: GET_PARENT "robot mouse" -> -(SP)
JE (SP)+,G00 [FALSE] L0007
PRINT_RET "
Austin plays with the robot mouse, kicking it wildly across the floorboards. It
beeps piteously, hoping to be rescued."
L0007: JE G00,#45 [FALSE] L0008
RANDOM #02 -> -(SP)
JE (SP)+,#01 [FALSE] L0008
PRINT_RET "
Austin scuffles with the insulation rolls, as if trying to bury something."
L0008: JE G00,#38 [FALSE] L0009
RANDOM #02 -> -(SP)
JE (SP)+,#01 [FALSE] L0009
PRINT_RET "
Austin jumps up at the cord, but falls back down again, growling."
L0009: JE L02,#01 [FALSE] L0010
PRINT_RET "
Austin yawns."
L0010: JE L02,#02 [FALSE] L0011
PRINT_RET "
Austin rolls over on his back and stretches."
L0011: JE L02,#03 [FALSE] L0012
PRINT_RET "
Austin looks ineffable again."
L0012: JE L02,#04 [FALSE] L0013
PRINT_RET "
Austin purrs and licks one of his paws."
L0013: RFALSE
L0014: JE L01,#2d [FALSE] L0016
TEST_ATTR "hinged trapdoor",#0a [TRUE] L0016
JE G00,#1d [FALSE] L0015
PRINT_RET "
There is a faint scratching noise at the trapdoor."
L0015: RFALSE
L0016: JE L01,#2d [FALSE] L0017
INSERT_OBJ "Austin","Attic"
JE G00,#1d [FALSE] L0017
PRINT_RET "
Austin, your ginger cat, jumps up through the trap door."
L0017: JE L01,#1d [FALSE] L0018
TEST_ATTR "hinged trapdoor",#0a [FALSE] L0018
JE L02,#0a [FALSE] L0018
INSERT_OBJ "Austin","House"
JE G00,#1d [FALSE] L0018
PRINT_RET "
Austin, bored again, disappears through the trap door."
L0018: JE L01,#1d [FALSE] L0021
RANDOM #03 -> L02
JE L02,#01 [FALSE] L0019
STORE L03,#2e
L0019: JE L02,#02 [FALSE] L0020
STORE L03,#61
L0020: JE L02,#03 [FALSE] L0021
STORE L03,#28
L0021: JE L01,#28 [FALSE] L0022
STORE L03,#1d
L0022: JE L01,#2e [FALSE] L0024
JE L02,#09 [FALSE] L0023
STORE L03,#1d
JUMP L0024
L0023: STORE L03,#37
L0024: JE L01,#37 [FALSE] L0028
RANDOM #04 -> L02
JE L02,#01 [FALSE] L0025
STORE L03,#2e
L0025: JE L02,#02 [FALSE] L0026
STORE L03,#45
L0026: JE L02,#03 [FALSE] L0027
STORE L03,#38
L0027: JE L02,#04 [FALSE] L0028
STORE L03,#3c
L0028: JE L01,#45 [FALSE] L0029
STORE L03,#37
L0029: JE L01,#38 [FALSE] L0030
STORE L03,#37
L0030: JE L01,#3c [FALSE] L0035
TEST_ATTR "slide projector",#18 [FALSE] L0032
JE G25,#00 [TRUE] L0032
JE L00,#00 [FALSE] L0032
JE G00,#3c [FALSE] L0031
PRINT_RET "
Austin seems fascinated by the beam of light."
L0031: RFALSE
L0032: RANDOM #03 -> L02
JE L02,#01 [FALSE] L0033
STORE L03,#37
L0033: JE L02,#02 [FALSE] L0034
STORE L03,#3f
L0034: JE L02,#03 [FALSE] L0035
STORE L03,#42
L0035: JE L01,#3f [FALSE] L0036
STORE L03,#3c
L0036: JE L01,#42 [FALSE] L0039
TEST_ATTR "slide projector",#18 [FALSE] L0038
JE L00,#00 [FALSE] L0038
JE G00,#42 [FALSE] L0037
PRINT_RET "
Austin stares curiously at the slideshow."
L0037: RFALSE
L0038: STORE L03,#3c
L0039: JE L01,#61 [FALSE] L0041
RANDOM #02 -> L02
JE L02,#01 [FALSE] L0040
STORE L03,#1d
L0040: JE L02,#02 [FALSE] L0041
STORE L03,#7e
L0041: JE L01,#7e [FALSE] L0043
RANDOM #02 -> L02
JE L02,#01 [FALSE] L0042
STORE L03,#83
L0042: JE L02,#02 [FALSE] L0043
STORE L03,#61
L0043: JE L03,#ffff [FALSE] L0044
RFALSE
L0044: INSERT_OBJ "Austin",L03
JE G00,L01,L03 [FALSE] L0071
JE L00,#00 [FALSE] L0057
PRINT "
Austin "
RANDOM #0a -> L02
JE L02,#01 [FALSE] L0045
PRINT "sidles"
L0045: JE L02,#02 [FALSE] L0046
PRINT "ambles"
L0046: JE L02,#03 [FALSE] L0047
PRINT "strolls"
L0047: JE L02,#04 [FALSE] L0048
PRINT "runs"
L0048: JE L02,#05 [FALSE] L0049
PRINT "oozes"
L0049: JE L02,#06 [FALSE] L0050
PRINT "scurries"
L0050: JE L02,#07 [FALSE] L0051
PRINT "tiptoes"
L0051: JE L02,#08 [FALSE] L0052
PRINT "leaps"
L0052: JE L02,#09 [FALSE] L0053
PRINT "crawls"
L0053: JE L02,#0a [FALSE] L0054
PRINT "rolls"
L0054: JE G00,L01 [FALSE] L0055
PRINT " away to "
STORE L02,L03
JUMP L0056
L0055: PRINT " in from "
STORE L02,L01
L0056: JUMP L0058
L0057: PRINT "to "
STORE L02,L03
L0058: PRINT "the "
JE L02,#1d [FALSE] L0059
PRINT_RET "attic."
L0059: JE L02,#2e [FALSE] L0060
PRINT_RET "furniture store."
L0060: JE L02,#61 [FALSE] L0061
PRINT_RET "winery."
L0061: JE L02,#28 [FALSE] L0062
PRINT_RET "servant's bedroom."
L0062: JE L02,#7e [FALSE] L0063
PRINT_RET "conservatory."
L0063: JE L02,#83 [FALSE] L0064
PRINT_RET "potting room."
L0064: JE L02,#37 [FALSE] L0065
PRINT_RET "east landing."
L0065: JE L02,#45 [FALSE] L0066
PRINT_RET "annexe."
L0066: JE L02,#38 [FALSE] L0067
PRINT_RET "dark room."
L0067: JE L02,#3c [FALSE] L0068
PRINT_RET "observatory."
L0068: JE L02,#42 [FALSE] L0069
PRINT_RET "souvenirs room."
L0069: JE L02,#3f [FALSE] L0070
PRINT_RET "book store."
L0070: PRINT_RET "cold."
L0071: RTRUE
Routine R0099, 0 locals
JE G4c,#3d [TRUE] L0001
RFALSE
L0001: TEST_ATTR "ship's wheel",#19 [FALSE] L0002
PRINT_RET "Your hands seem unable to touch it again."
L0002: SET_ATTR "ship's wheel",#19
SET_ATTR "sandstone recess",#0a
PRINT_RET "You try turning the wheel, but it moves only
infinitesimally slowly. The door begins to raise the tiniest fraction, and a
few grains of sand cascade in slow motion, rattling horribly against each
other...
It will take forever, and the air is running out..."
Routine R0100, 0 locals
JE G4c,#03 [FALSE] L0001
JE G4d,G4e [FALSE] L0001
PRINT_RET "It is in one piece."
L0001: JE G4c,#02 [FALSE] L0002
CALL_2N R0041 (#2b)
L0002: RFALSE
Routine R0101, 0 locals
JE G4c,#1a [TRUE] L0001
RFALSE
L0001: GET_PARENT "golden astrolabe" -> -(SP)
JE (SP)+,#01c3 [FALSE] L0002
TEST_ATTR "golden astrolabe",#06 [FALSE] L0003
L0002: PRINT_RET "You catch a fascinating, but all too brief, glimpse of
something... which slips out of view as your unsteady hand shakes."
L0003: INSERT_OBJ G03,"Out on the Spire"
STORE G00,#017e
PRINT "Through the golden eyepiece you see, not the moon (for
the astrolabe is tilted too low), but a curious, sunlit, grey triangle.
Fascinated, you strain closer to the vision... closer...
"
CALL_2N R0198 (#01)
RTRUE
Routine R0102, 0 locals
JE G4c,#18 [TRUE] L0001
RFALSE
L0001: CALL_2N R0041 (#14)
RFALSE
Routine R0103, 0 locals
PRINT_RET "Why not go northeast and look inside?"
Routine R0104, 0 locals
CALL_2N R0041 (#0e)
RFALSE
Routine R0105, 0 locals
JE G4c,#60 [FALSE] L0001
PRINT_RET "It sounds like a thinly, but enthusiastically, attended
football match. There are ragged German chants but only the word "Eumenides"
pokes out."
L0001: JE G4c,#13 [TRUE] L0002
RFALSE
L0002: JE G4d,#03,#0b [FALSE] L0003
PRINT_RET "You step downward in some confusion, but your senses
are assailed by some kind of vision, of a ghastly circle of druids watching
your every move and plotting, plotting...
In horror you turn back."
L0003: RFALSE
Routine R0106, 0 locals
JE G4c,#3d [FALSE] L0005
JE G4d,#b4 [FALSE] L0005
PRINT "You give the revolving door a heave, and it begins to
move; but you pause, out of breath, after only a half turn. "
GET_PROP "Museum Foyer",#0d -> -(SP)
JE (SP)+,#b6 [FALSE] L0001
PUT_PROP "Museum Foyer",#0d,#b8
JUMP L0002
L0001: PUT_PROP "Museum Foyer",#0d,#b6
L0002: GET_PROP "Museum Foyer",#0d -> -(SP)
GET_CHILD (SP)+ -> -(SP) [TRUE] L0003
L0003: JE (SP)+,#00 [FALSE] L0004
NEW_LINE
RTRUE
L0004: PRINT_RET "Interestingly, there's something inside this segment of
it."
L0005: JE G4c,#13 [FALSE] L0006
JE G4d,#03 [TRUE] L0007
L0006: RFALSE
L0007: PRINT "You pass between the steel walls and a light passes
over you. Now you know how paper feels in a photocopier"
GET_CHILD G03 -> -(SP) [TRUE] L0008
L0008: JE (SP)+,#00 [FALSE] L0009
PRINT ".
"
RFALSE
L0009: PRINT_RET " - in this case, one which jams. Steel barriers appear
across the corridor, and you are obliged to withdraw back to the foyer.
After a moment, the barriers recede again."
Routine R0107, 0 locals
JE G4c,#02 [TRUE] L0001
RFALSE
L0001: PRINT_RET "The beach ball, a welcome dash of colour in this drab
monochrome night, is simply too big, cumbersome and round to get hold of."
Routine R0108, 0 locals
JE G4c,#3b,#3d [FALSE] L0001
JE G4d,#b7,#b9 [FALSE] L0001
JUMP L0004
L0001: JE G4c,#13 [TRUE] L0002
RFALSE
L0002: JE G4d,#04 [FALSE] L0003
PRINT_RET "The door only turns clockwise."
L0003: JE G4d,#02 [TRUE] L0004
RFALSE
L0004: PRINT_RET "You revolve clockwise with the door, and wind up back
adjacent to the foyer."
Routine R0109, 0 locals
JE G4c,#18 [FALSE] L0001
GET_PARENT G4d -> -(SP)
JE (SP)+,#0136 [FALSE] L0001
PRINT_RET "It's too dark to see much inside the cabinet."
L0001: RFALSE
Routine R0110, 0 locals
JE G4c,#43 [TRUE] L0001
RFALSE
L0001: TEST_ATTR "glass cabinet",#0a [FALSE] L0002
PRINT_RET "Just how broken do you want it to be?"
L0002: PUT_PROP "glass cabinet",#04,S947
SET_ATTR "glass cabinet",#0a
CALL_VN R0035 (#c5,#05)
PRINT_RET "You smash the glass... noisily. Still, the cabinet is
open now."
Routine R0111, 0 locals
JE G4c,#18 [FALSE] L0001
JE G4d,#0176 [FALSE] L0001
CALL_2N R0041 (#2f)
RFALSE
L0001: JE G4c,#13 [TRUE] L0002
RFALSE
L0002: JE G4d,#03 [FALSE] L0004
TEST_ATTR "parish church",#0a [TRUE] L0003
SET_ATTR "parish church",#0a
PUT_PROP "parish church",#02,S948
PRINT "You unbar the door, and let yourself out.
"
L0003: RFALSE
L0004: JE G4d,#0b [FALSE] L0005
TEST_ATTR "Moonstone",#0a [FALSE] L0005
PRINT_RET "To your horror your body partly thins to mist as you
climb down through the threshold! Alarmed, you pull back. The underworld
beneath the Moonstone, it seems, is not for mortals."
L0005: JE G4d,#0b [FALSE] L0006
PRINT_RET "The Moonstone is huge and solid."
L0006: RFALSE
Routine R0112, 0 locals
JE G4c,#13 [FALSE] L0001
JE G4d,#0b [TRUE] L0002
L0001: RFALSE
L0002: PRINT "You slither down a bell rope, noisily...
"
RFALSE
Routine R0113, 0 locals
JE G4c,#39,#3b,#59 [FALSE] L0001
JE G4d,#017d [FALSE] L0001
PRINT_RET "You ring an amateurish, jangling peal."
L0001: JE G4c,#13 [FALSE] L0002
JE G4d,#0a [FALSE] L0002
PRINT_RET "The ropes are too smooth and noisy to climb."
L0002: RFALSE
Routine R0114, 0 locals
JE G4c,#17 [FALSE] L0001
GET_PARENT "adamantine statue" -> -(SP)
JE (SP)+,#0177 [FALSE] L0001
CALL_1N R0115
L0001: RFALSE
Routine R0115, 0 locals
TEST_ATTR "adamantine skull",#19 [TRUE] L0001
TEST_ATTR "adamantine skull",#01 [TRUE] L0001
PRINT "
A headless "
JUMP L0002
L0001: PRINT "
An "
L0002: PRINT "adamantine statue lies prone here, a knight on a tomb"
TEST_ATTR "adamantine hand",#19 [TRUE] L0003
TEST_ATTR "adamantine heart",#19 [TRUE] L0003
PRINT_RET "."
L0003: TEST_ATTR "adamantine hand",#19 [TRUE] L0004
TEST_ATTR "adamantine hand",#01 [FALSE] L0005
L0004: PRINT " with hand outstretched"
L0005: TEST_ATTR "adamantine heart",#19 [FALSE] L0006
PRINT_RET ", a heart in his ribcage. And yet there is no spark of
life in him."
L0006: PRINT_RET ", heartless and implacable."
Routine R0116, 1 local
JE G4c,#6c [FALSE] L0001
PRINT_RET "The knight dances a jig with sheer exuberance."
L0001: JE G4c,#21 [FALSE] L0003
JE G4d,#0176 [FALSE] L0003
TEST_ATTR "Moonstone",#0a [TRUE] L0003
TEST_ATTR "adamantine knight",#19 [TRUE] L0002
PRINT_RET "The knight understands what is to be done. But he is
world-weary and sad, and not yet in your service."
L0002: SET_ATTR "Moonstone",#0a
PRINT_RET "The knight bows, and effortlessly pulls the enormously
heavy Moonstone open. You can almost see ghostly perspiration bead on the
ghostly sinews around his adamantine body."
L0003: JE G4c,#13 [FALSE] L0004
PRINT_RET "The knight just about understands that he is to go
somewhere, but cannot quite comprehend the direction. You'll have to indicate
it somehow. (Shame there were no adamantine ears, really.)"
L0004: JE G4c,#50 [FALSE] L0020
JE G00,#0175 [FALSE] L0006
JE G4d,#0b [FALSE] L0006
TEST_ATTR "Moonstone",#0a [TRUE] L0005
PRINT_RET "The knight is unable to walk through the Moonstone."
L0005: REMOVE_OBJ "adamantine knight"
INSERT_OBJ "High Rod of Life","Parish Church"
INSERT_OBJ "High Rod of Death","Parish Church"
INSERT_OBJ "High Rod of Love","Parish Church"
PRINT_RET "The knight strides down into the underworld beneath the
Moonstone, to be lost to your sight... forever?
For even he has not life force enough to hold together in the mists: his
skeleton begins to clatter away to nothing, falling in all directions, his
heart, hand and skull returning Somehow to your feet. And they are altering,
altering even as you look down into the void..."
L0006: STORE L00,#00
JE G00,#0175 [FALSE] L0009
JE G4d,#03 [FALSE] L0007
STORE L00,#016c
L0007: JE G4d,#04 [FALSE] L0008
STORE L00,#017a
L0008: JE G4d,#05 [FALSE] L0009
STORE L00,#0177
L0009: JE G00,#017a [FALSE] L0010
JE G4d,#05 [FALSE] L0010
STORE L00,#0175
L0010: JE G00,#0177 [FALSE] L0011
JE G4d,#04 [FALSE] L0011
STORE L00,#0175
L0011: JE L00,#00 [FALSE] L0012
PRINT_RET "The knight shakes his head, solemnly."
L0012: JE L00,#016c [FALSE] L0013
PRINT_RET "The knight won't leave sacred ground."
L0013: INSERT_OBJ "adamantine knight",L00
JE L00,#017a [FALSE] L0014
PUT_PROP "adamantine knight",#04,S949
JUMP L0016
L0014: GET_PARENT "marble rose" -> -(SP)
JE (SP)+,#0179 [FALSE] L0015
PUT_PROP "adamantine knight",#04,S950
JUMP L0016
L0015: PUT_PROP "adamantine knight",#04,S951
L0016: PRINT "The knight strides boldly away to the "
JE G4d,#02 [FALSE] L0017
PRINT_RET "north."
L0017: JE G4d,#03 [FALSE] L0018
PRINT_RET "south."
L0018: JE G4d,#04 [FALSE] L0019
PRINT_RET "east."
L0019: PRINT_RET "west."
L0020: JE G4c,#0f,#08 [FALSE] L0021
JE G4e,#017b [FALSE] L0021
JE G4d,#9b [FALSE] L0021
PRINT_RET "The knight likes the idea but is confused."
L0021: PRINT_RET "The knight is confused. Perhaps you were a little rough
with the skull."
Routine R0117, 0 locals
JE G4c,#08 [FALSE] L0003
JE G4d,#0137 [FALSE] L0001
JE G4e,#0183 [FALSE] L0001
INSERT_OBJ G4d,"Island of Pharos"
SET_ATTR "smooth round stone",#19
SET_ATTR "smooth round stone",#01
PUT_PROP "rusty iron key",#04,S952
PRINT_RET "The strange stone drops through the grating, and falls
on the top step. The iron key mysteriously glues itself to the metal in the
stone. It's still out of reach, though."
L0001: JE G4e,#0183 [FALSE] L0003
JE G4d,#75 [FALSE] L0002
PRINT_RET "The robot mouse is just the wrong shape."
L0002: INSERT_OBJ G4d,"Jetty"
CALL_2N R0291 (G4d)
PRINT_RET " drops through the grating and bounces down in the
darkness."
L0003: JE G4c,#13 [FALSE] L0004
JE G4d,#0a [FALSE] L0004
PRINT_RET "The Pharos is unclimbable, alas."
L0004: RFALSE
Routine R0118, 0 locals
JE G4c,#02 [FALSE] L0001
TEST_ATTR "rusty iron key",#19 [TRUE] L0001
PRINT_RET "Reach down the grating as you may, it remains just
beyond reach."
L0001: RFALSE
Routine R0119, 0 locals
JE G4c,#02 [FALSE] L0001
TEST_ATTR "smooth round stone",#19 [FALSE] L0001
PRINT_RET "Reach down the grating as you may, it remains just
beyond reach."
L0001: RFALSE
Routine R0120, 0 locals
JE G4c,#00 [FALSE] L0001
PRINT_RET "The sepulchral calm of the ocean overwhelms you, and
you can only watch and sail."
L0001: RFALSE
Routine R0121, 0 locals
JE G4c,#08,#0f [FALSE] L0001
JE G4e,#017b [FALSE] L0001
PRINT_RET "It would look perfect in Diana's hair, but her head is
far too high to reach."
L0001: RFALSE
Routine R0122, 0 locals
JE G4c,#21,#3b,#39 [TRUE] L0001
JE G4c,#02 [FALSE] L0002
L0001: CALL_2N R0041 (#13)
PRINT_RET "Although apparently nothing holds down the stone, it is
far too heavy and will not budge."
L0002: RFALSE
Routine R0123, 0 locals
JE G4c,#02 [FALSE] L0004
TEST_ATTR G4d,#06 [TRUE] L0004
TEST_ATTR G4d,#19 [TRUE] L0002
TEST_ATTR "old gardeners' gloves",#02 [FALSE] L0001
PRINT_RET "It is searing hot! Even with the gloves on you cannot
touch the adamantine."
L0001: PRINT_RET "It is searing hot, and you cannot touch the surface!"
L0002: JE G3e,#00 [FALSE] L0003
STORE G3e,#01
PRINT_RET "Warning (once only!): the three High Rods seem to
balanced extremely delicately on the edge of the pit."
L0003: CALL_2N R0040 (#2c)
L0004: RFALSE
Routine R0124, 0 locals
JE G4c,#02 [FALSE] L0001
JE G06,#0e [TRUE] L0001
JE G82,#00 [FALSE] L0001
REMOVE_OBJ "High Rod of Life"
SET_ATTR "High Rod of Life",#06
CLEAR_ATTR "High Rod of Life",#01
SET_ATTR "High Rod of Life",#1e
REMOVE_OBJ "High Rod of Death"
SET_ATTR "High Rod of Death",#06
CLEAR_ATTR "High Rod of Death",#01
SET_ATTR "High Rod of Death",#1e
REMOVE_OBJ "High Rod of Love"
SET_ATTR "High Rod of Love",#06
CLEAR_ATTR "High Rod of Love",#01
SET_ATTR "High Rod of Love",#1e
INSERT_OBJ G4d,G03
CLEAR_ATTR G4d,#1e
STORE G82,#01
PRINT_RET "(Interesting choice.)
As you take it, you upset the balance and the other two High Rods rattle away
down the crystal passageway into the underworld."
L0001: RFALSE
Routine R0125, 0 locals
JE G4c,#67,#08 [FALSE] L0004
JE G4e,#0178 [FALSE] L0004
JE G4d,#017f,#01d1,#0187 [TRUE] L0001
PRINT_RET "That seems incongruous."
L0001: JE G4d,#017f [FALSE] L0002
INSERT_OBJ "adamantine hand","West Side Chapel"
SET_ATTR "adamantine hand",#01
PRINT_RET "The hand fits very loosely onto the left "wrist" of the
adamantine knight."
L0002: JE G4d,#01d1 [FALSE] L0003
INSERT_OBJ "adamantine skull","West Side Chapel"
SET_ATTR "adamantine skull",#01
PRINT_RET "The skull fits very loosely onto the "neck" of the
adamantine knight."
L0003: JE G4d,#0187 [FALSE] L0004
REMOVE_OBJ "adamantine heart"
SET_ATTR "adamantine heart",#19
PRINT_RET "The heart sits well in the so-empty ribcage of the
adamantine knight."
L0004: JE G4c,#3d [FALSE] L0006
JE G4d,#01d1,#017f [FALSE] L0006
TEST_ATTR G4d,#01 [FALSE] L0006
JE G4d,#017f [FALSE] L0005
REMOVE_OBJ "adamantine hand"
SET_ATTR "adamantine hand",#19
CLEAR_ATTR "adamantine hand",#01
PRINT_RET "The hand screws tightly onto the adamantine knight."
L0005: JE G4d,#01d1 [FALSE] L0006
REMOVE_OBJ "adamantine skull"
SET_ATTR "adamantine skull",#19
CLEAR_ATTR "adamantine skull",#01
PRINT_RET "The skull screws tightly onto the adamantine knight."
L0006: RFALSE
Routine R0126, 0 locals
JE G4c,#13 [FALSE] L0001
JE G4d,#07,#09,#08 [FALSE] L0002
L0001: RFALSE
L0002: JE G4d,#06 [FALSE] L0003
TEST_ATTR "cloak of many colours",#02 [FALSE] L0003
PRINT "The procession happily accommodates another
crazily-dressed loon.
"
RFALSE
L0003: PRINT_RET "The enormous procession, which throngs the great
streets of Alexandria, is impossible to push your way through. Better just
enjoy the spectacle."
Routine R0127, 0 locals
JE G4c,#02 [FALSE] L0001
TEST_ATTR "spindle from the globe",#19 [TRUE] L0001
SET_ATTR "spindle from the globe",#19
PUT_PROP "spindle from the globe",#02,S953
PRINT_RET "As you pull out its polar axis, the spindle, the Earth
collapses altogether in a possibly symbolic, certainly dusty shambles."
L0001: RFALSE
Routine R0128, 0 locals
JE G4c,#13 [FALSE] L0001
JE G4d,#02 [TRUE] L0002
L0001: RFALSE
L0002: TEST_ATTR "cloak of many colours",#02 [FALSE] L0003
STORE G05,#01
PRINT_RET "Or you could just saunter past them wearing a cloak of
many colours. Have it your own way."
L0003: PRINT "
You tiptoe into the palace, and immediately dart away from view of the many
clerks and civil servants manning the machinery of government even at this late
hour. Within seconds, you realise you are...
"
RFALSE
Routine R0129, 0 locals
JE G4c,#13 [FALSE] L0001
TEST_ATTR "purple sash",#02 [TRUE] L0001
INSERT_OBJ G03,"Outside the Royal Palace of Alexander"
STORE G00,#01c0
PRINT_RET "The slave looks you over and sees that you do not bear
the mark of an accredited visitor to the Palace. You are discreetly escorted
out."
L0001: JE G4c,#09 [FALSE] L0002
PRINT_RET "The slave politely holds your arm fast until you
desist."
L0002: RFALSE
Routine R0130, 0 locals
Action routine for:
"anoppe"
JE G00,#01c1 [FALSE] L0001
TEST_ATTR "Lost inside the Palace",#19 [TRUE] L0002
L0001: PRINT_RET "Nothing happens."
L0002: CALL_1N R0131
RTRUE
Routine R0131, 0 locals
PRINT "The slave here, a senior adviser merely disguised as a
deaf mute, reacts at once, taking you by the arm and leading you on a
convoluted path through the Palace to the...
"
INSERT_OBJ G03,"Palace Balustrade"
STORE G00,#01c3
CALL_2N R0198 (#01)
RTRUE
Routine R0132, 0 locals
JE G4c,#08 [FALSE] L0002
JE G4e,#01c4 [FALSE] L0002
JE G4d,#014c [FALSE] L0001
REMOVE_OBJ "astronomical mounting"
INSERT_OBJ "golden astrolabe","Palace Balustrade"
SET_ATTR "golden astrolabe",#0f
CLEAR_ATTR "golden astrolabe",#06
PUT_PROP "golden astrolabe",#04,S954
INSERT_OBJ "astronomical mounting","Palace Balustrade"
PRINT_RET "It fits beautifully, as if designed to go there."
L0001: PRINT_RET "Doesn't fit."
L0002: JE G4c,#56 [FALSE] L0003
INSERT_OBJ G03,"Warehouses and Port"
STORE G00,#01c5
PRINT_RET "You dive off the balcony in a beautifully graceful
motion, plunging perfectly into the icy and (fortunately) deep waters below.
You then struggle to the surface in a panicky, floundering motion, and finally
wash up out of the water in a clumsy, ridiculous one."
L0003: RFALSE
Routine R0133, 0 locals
Action routine for:
"anoint NOUN"
JE G00,#01b3 [TRUE] L0001
PRINT_RET "You have no oil."
L0001: JE G4d,G03 [FALSE] L0002
TEST_ATTR "mummy case",#19 [FALSE] L0003
L0002: PRINT_RET "That hardly seems worthwhile."
L0003: SET_ATTR "mummy case",#19
PRINT_RET "You smear some oil on your head, making a mental note
to wash your hair in the morning. It is the least sacred sacred ritual you have
ever taken part in."
Routine R0134, 0 locals
Action routine for:
"float"
"float away"
GET_PARENT G03 -> -(SP)
JE (SP)+,#0186 [TRUE] L0001
PRINT_RET "You are not in any suitable means of transport."
L0001: GET_PARENT "skiff" -> -(SP)
JE (SP)+,#8d [FALSE] L0002
PRINT_RET "The skiff is absolutely becalmed."
L0002: TEST_ATTR "skiff",#19 [FALSE] L0003
PRINT_RET "That seems to be happening whether you like it or not."
L0003: SET_ATTR "skiff",#19
INSERT_OBJ "skiff","Harbour Mouth"
STORE G00,#0188
PRINT "You set sail, and a light breeze propels your skiff...
"
CALL_2N R0198 (#01)
RTRUE
Routine R0135, 1 local
JE G4d,#01c7 [FALSE] L0004
JE G4c,#02 [FALSE] L0001
PRINT_RET "The sailor covers it with his hand. But he looks the
type who's never averse to a game."
L0001: JE G4c,#18 [FALSE] L0002
PRINT "Each side has a word inscribed on it. The word on top
is ""
GET_PROP "inscribed die",#15 -> -(SP)
CALL_2N R0136 ((SP)+)
PRINT_RET ""."
L0002: JE G4c,#09 [FALSE] L0004
RANDOM #06 -> L00
TEST_ATTR "inscribed die",#22 [FALSE] L0003
STORE L00,#06
L0003: SET_ATTR "gambling sailor",#19
PUT_PROP "inscribed die",#15,L00
PRINT "You throw a ""
CALL_2N R0136 (L00)
PRINT_RET "", whatever that means."
L0004: RFALSE
Routine R0136, 1 local
JE L00,#01 [FALSE] L0001
PRINT "thu"
L0001: JE L00,#02 [FALSE] L0002
PRINT "zal"
L0002: JE L00,#03 [FALSE] L0003
PRINT "si"
L0003: JE L00,#04 [FALSE] L0004
PRINT "ca"
L0004: JE L00,#05 [FALSE] L0005
PRINT "mach"
L0005: JE L00,#06 [FALSE] L0006
PRINT "huth"
L0006: RTRUE
Routine R0137, 0 locals
JE G4c,#17,#46,#01 [FALSE] L0001
RFALSE
L0001: JE G4c,#4e [FALSE] L0002
RFALSE
L0002: JE G4c,#13 [TRUE] L0003
PRINT_RET "There's very little room, and the air is running out."
L0003: TEST_ATTR "mummy case",#19 [FALSE] L0004
JE G4d,#0a [TRUE] L0005
L0004: PRINT_RET "There's nowhere to go."
L0005: CALL_2N R0040 (#29)
INSERT_OBJ "adamantine skull",G03
PRINT "
Your spirit rises, prepared as it was for the afterlife, and diffuses through
the solid gold of the coffin by sheer effort of will, finally beginning to
recoalesce. You stagger, confused, through dark caves until you finally come to
light, clutching something solid...
"
RFALSE
Routine R0138, 0 locals
JE G4c,#3d,#3e [FALSE] L0005
TEST_ATTR G4d,#02 [FALSE] L0001
PRINT_RET "Not while you're wearing it."
L0001: GET_PARENT G4d -> -(SP)
JE (SP)+,G03 [TRUE] L0002
PRINT_RET "You need to be holding it."
L0002: JE G4d,#018e [FALSE] L0003
INSERT_OBJ "grey cloak",G03
REMOVE_OBJ "cloak of many colours"
STORE G71,#018f
JUMP L0004
L0003: INSERT_OBJ "cloak of many colours",G03
REMOVE_OBJ "grey cloak"
STORE G71,#018e
L0004: PRINT_RET "You turn the cloak inside out."
L0005: RFALSE
Routine R0139, 0 locals
JE G4c,#08 [FALSE] L0003
JE G4e,#018d [FALSE] L0003
JE G4d,#0159 [TRUE] L0001
PRINT_RET "Doesn't seem to fit."
L0001: TEST_ATTR "unexciting tombstone",#0a [FALSE] L0002
PRINT_RET "What?"
L0002: PUT_PROP "unexciting tombstone",#02,S955
SET_ATTR "unexciting tombstone",#0a
CALL_2N R0041 (#19)
INSERT_OBJ "gleaming amber gem","unexciting tombstone"
PRINT_RET "The amber fits perfectly into the mouth of the stone
face, and there is a heaving from beneath your feet... you topple over
backward, flailing wildly. When you get up you can see a short flight of steps
leading down. You have opened the tomb!"
L0003: RFALSE
Routine R0140, 0 locals
JE G4c,#3b,#39 [FALSE] L0001
PRINT_RET "It is made of stone, you know."
L0001: JE G4c,#3d [FALSE] L0005
GET_PARENT G03 -> -(SP)
JE G00,(SP)+ [TRUE] L0002
PRINT_RET "You can't reach from the couch."
L0002: TEST_ATTR "marble wall",#0a [FALSE] L0003
CLEAR_ATTR "marble wall",#0a
JUMP L0004
L0003: SET_ATTR "marble wall",#0a
L0004: CALL_2N R0040 (#27)
PRINT_RET "You twist the nose, and before it springs back there is
a rumbling of stone from below."
L0005: RFALSE
Routine R0141, 0 locals
JE G4c,#13 [FALSE] L0003
JE G4d,#05 [FALSE] L0003
PRINT "The spirits of the sphinxes prowl across the doorway,
paws raised, and then lunge towards you. Their claws rake across your skin,
tearing off a layer, unwrapping you in a curiously painless way... and you
wake...
"
GET_PROP "The Spirit World",#15 -> -(SP)
JE (SP)+,#01 [FALSE] L0001
INSERT_OBJ G03,"wooden couch"
STORE G00,#0198
JUMP L0002
L0001: GET_PROP "The Spirit World",#15 -> -(SP)
SUB (SP)+,#01 -> -(SP)
PUT_PROP "The Spirit World",#15,(SP)+
INSERT_OBJ G03,"wooden couch"
REMOVE_OBJ "Napoleonic officers"
L0002: CALL_2N R0198 (#01)
RTRUE
L0003: JE G4c,#13 [FALSE] L0005
GET_PROP "The Spirit World",#15 -> -(SP)
JE (SP)+,#04 [FALSE] L0004
PRINT_RET "You somehow cannot leave the tomb. Your spirit is
anchored still to your body, sleeping two thousand years before."
L0004: PRINT_RET "The tomb is sealed, apparently forever."
L0005: JE G4c,#02,#09,#01 [FALSE] L0006
PRINT_RET "You are beyond worldly things."
L0006: RFALSE
Routine R0142, 1 local
JE G4c,#17 [FALSE] L0004
GET_PROP "The Spirit World",#15 -> L00
JE L00,#01 [FALSE] L0001
PRINT "
The tomb seems older now, weighed under with centuries.
"
L0001: JE L00,#02 [FALSE] L0002
PRINT "
The tomb swelters now, a thousand years old.
"
L0002: JE L00,#03 [FALSE] L0003
PRINT "
The tomb is beautifully well-preserved, but it seems quite ancient.
"
L0003: JE L00,#04 [FALSE] L0004
PRINT "
By now the tomb might be two thousand years old.
"
GET_PARENT "Napoleonic officers" -> -(SP)
JE (SP)+,#019f [FALSE] L0004
PRINT "
And at last it has been opened.
"
L0004: RFALSE
Routine R0143, 0 locals
JE G4c,#13 [FALSE] L0002
JE G4d,#05 [FALSE] L0002
GET_PARENT G03 -> -(SP)
JE (SP)+,G00 [TRUE] L0001
PRINT_RET "First get up."
L0001: PRINT "Slightly to your surprise, the sphinxes make no effort
to stop you.
"
L0002: RFALSE
Routine R0144, 1 local
GET_PARENT G03 -> -(SP)
JE (SP)+,#01a5 [FALSE] L0002
JE G4c,#00 [FALSE] L0001
PRINT "(That's a relief.)
"
RFALSE
L0001: JE G4c,#23 [TRUE] L0002
PRINT "(You are so distracted that common sense takes over and
you clamber out of the mummy.)
"
GET_PARENT "mummy case" -> -(SP)
INSERT_OBJ G03,(SP)+
GET_PARENT G03 -> G00
L0002: JE G4c,#13 [FALSE] L0004
JE G4d,#02,#06 [FALSE] L0004
TEST_ATTR "second socket",#19 [TRUE] L0003
INSERT_OBJ "green oak quarterstaff","Quite an Undertaking"
SET_ATTR "second socket",#19
L0003: PRINT_RET "The passage seems endless, and you are obliged to
retreat before the air runs out."
L0004: JE G4c,#23 [FALSE] L0007
JE G4d,#01a5 [FALSE] L0007
TEST_ATTR G4d,#0a [FALSE] L0007
GET_PARENT G03 -> -(SP)
JE (SP)+,#01a5 [FALSE] L0006
JE G3d,#00 [FALSE] L0005
STORE G3d,#01
PRINT_RET "Are you... absolutely sure about that? [You won't be
warned again.]"
L0005: PRINT "The lid slams down on you with a very final sound
indeed.
*** You have ...
But - something more is happening. The coffin's delicate balance has been
altered, and it is sliding, slipping away down the square passage, endlessly,
endlessly...
And even that is not the end, for you suddenly crash into buffers at one end.
What a lucky escape, you think... for a moment...
"
INSERT_OBJ G03,"Buried Alive"
STORE G00,#01d0
CALL_2N R0198 (#01)
RTRUE
L0006: PRINT_RET "No, don't. Once shut it would never open again."
L0007: JE G4c,#04 [FALSE] L0009
JE G4d,#01a5 [FALSE] L0009
TEST_ATTR "mummy case",#0a [TRUE] L0008
PRINT_RET "It's closed."
L0008: PRINT "(You can't help feeling that someone has planned all
this... and it isn't you.)
"
L0009: JE G4c,#08 [FALSE] L0014
JE G4e,#01a6,#01a7,#01a8 [FALSE] L0014
JE G4d,#013b [FALSE] L0013
PUT_PROP "model golden sceptre",#15,G4e
JE G4e,#01a6 [FALSE] L0010
PUT_PROP "model golden sceptre",#04,S956
L0010: JE G4e,#01a7 [FALSE] L0011
PUT_PROP "model golden sceptre",#04,S957
L0011: JE G4e,#01a8 [FALSE] L0012
PUT_PROP "model golden sceptre",#04,S958
L0012: INSERT_OBJ "model golden sceptre","Quite an Undertaking"
CLEAR_ATTR "model golden sceptre",#06
PRINT_RET "It fits perfectly (wouldn't you know it)."
JUMP L0014
L0013: PRINT_RET "Doesn't seem to fit, quite."
L0014: JE G4c,#02 [FALSE] L0015
JE G4e,#013b [FALSE] L0015
PUT_PROP "model golden sceptre",#15,#00
L0015: JE G4c,#18 [FALSE] L0016
JE G4d,#01a6,#01a7,#01a8 [FALSE] L0016
PRINT "Above "
CALL_2N R0290 (G4d)
PRINT " is the single word ""
GET_PROP G4d,#15 -> -(SP)
CALL_2N R0136 ((SP)+)
PRINT_RET ""."
L0016: JE G4c,#3d [FALSE] L0022
JE G4d,#013b [FALSE] L0022
GET_PROP G4d,#15 -> -(SP)
JE (SP)+,#00 [TRUE] L0022
TEST_ATTR "mummy case",#0a [FALSE] L0017
CLEAR_ATTR "mummy case",#0a
PRINT "With a crash, the coffin slams shut.
"
L0017: PRINT "You crank the sceptre round, lose control for a moment,
and some primitive mechanism spins. The word comes to rest as ""
RANDOM #06 -> L00
CALL_2N R0136 (L00)
PRINT "".
"
GET_PROP G4d,#15 -> -(SP)
PUT_PROP (SP)+,#15,L00
JE G1d,#01 [FALSE] L0018
PUT_PROP "first socket",#15,#03
PUT_PROP "second socket",#15,#06
PUT_PROP "third socket",#15,#01
L0018: GET_PROP "first socket",#15 -> -(SP)
JE (SP)+,#03 [FALSE] L0019
GET_PROP "second socket",#15 -> -(SP)
JE (SP)+,#06 [FALSE] L0019
GET_PROP "third socket",#15 -> -(SP)
JE (SP)+,#01 [TRUE] L0020
L0019: GET_PROP "first socket",#15 -> -(SP)
JE (SP)+,#01 [FALSE] L0021
GET_PROP "second socket",#15 -> -(SP)
JE (SP)+,#06 [FALSE] L0021
GET_PROP "third socket",#15 -> -(SP)
JE (SP)+,#03 [FALSE] L0021
L0020: SET_ATTR "mummy case",#0a
PUT_PROP "mummy case",#04,S959
PRINT_RET "
With an awful groaning noise, the coffin lid heaves open. And it is...
Empty!"
L0021: RTRUE
L0022: RFALSE
Routine R0145, 5 locals
JE G4c,#6f [FALSE] L0001
PRINT_RET "The mouse bleeps with happy pride. That's one thing it
really knows how to do."
L0001: JE G4c,#13 [TRUE] L0002
PRINT_RET "The mouse emits a querulous, unhappy bleep."
L0002: JE G4d,#06 [FALSE] L0003
STORE G4d,#0a
L0003: JE G4d,#07 [FALSE] L0004
STORE G4d,#0a
L0004: JE G4d,#08 [FALSE] L0005
STORE G4d,#0a
L0005: JE G4d,#09 [FALSE] L0006
STORE G4d,#0a
L0006: JE G4d,#0b [FALSE] L0007
STORE G4d,#0a
L0007: JE G4d,#0a [FALSE] L0008
PRINT_RET "The mouse bleeps with annoyance."
L0008: STORE L00,#75
GET_PARENT L00 -> L00
JE L00,#76 [FALSE] L0011
JE G4d,#02 [FALSE] L0009
STORE L01,#70
JUMP L0025
L0009: JE G4d,#05 [FALSE] L0010
STORE L01,#77
STORE G0f,#08
STORE G10,#03
JUMP L0025
L0010: JUMP L0030
L0011: JE L00,#79 [FALSE] L0013
JE G4d,#04 [FALSE] L0012
STORE L01,#70
JUMP L0025
L0012: JUMP L0030
L0013: JE L00,#70 [FALSE] L0016
JE G4d,#05 [FALSE] L0014
STORE L01,#79
JUMP L0025
L0014: JE G4d,#03 [FALSE] L0015
STORE L01,#76
JUMP L0025
L0015: JUMP L0030
L0016: JE L00,#77 [FALSE] L0024
JE G0f,#08 [FALSE] L0017
JE G10,#03 [FALSE] L0017
JE G4d,#04 [FALSE] L0017
STORE L01,#76
JUMP L0025
L0017: JE G4d,#02 [FALSE] L0018
STORE L03,G0f
SUB G10,#01 -> L04
L0018: JE G4d,#04 [FALSE] L0019
ADD G0f,#01 -> L03
STORE L04,G10
L0019: JE G4d,#03 [FALSE] L0020
STORE L03,G0f
ADD G10,#01 -> L04
L0020: JE G4d,#05 [FALSE] L0021
SUB G0f,#01 -> L03
STORE L04,G10
L0021: CALL_VS R0392 (L03,L04) -> -(SP)
JE (SP)+,#01 [FALSE] L0022
PRINT_RET "From somewhere inside the hole, you hear a disconsolate
bleep."
L0022: STORE G0f,L03
STORE G10,L04
JE G0f,#04 [FALSE] L0023
JE G10,#01 [FALSE] L0023
STORE L00,#78
GET_PARENT L00 -> L00
JE L00,#77 [FALSE] L0023
STORE L00,#78
REMOVE_OBJ L00
INSERT_OBJ L00,"robot mouse"
CALL_2N R0041 (#02)
PRINT_RET "From somewhere inside the hole, you hear the spinning
of tiny wheels, followed by an excitable high-pitched beep and a dull clanging
noise."
L0023: PRINT_RET "From somewhere inside the hole, you hear tiny wheels
spin."
L0024: PRINT_RET "The mouse wheels spin, but can't get a good enough grip
to move."
L0025: STORE L02,L00
STORE L00,#75
REMOVE_OBJ L00
INSERT_OBJ L00,L01
SET_ATTR "robot mouse",#06
JE G00,L02 [FALSE] L0027
JE L01,#77 [FALSE] L0026
CALL_2N R0041 (#01)
PRINT_RET "The mouse just squeezes through the hole, and
disappears from view. Unfortunately you can't very easily talk to it now..."
L0026: JE L01,#77 [TRUE] L0027
PRINT_RET "The mouse runs off as ordered."
L0027: JE G00,L01 [FALSE] L0029
PRINT "The mouse runs back out of the hole, looking dustier
but none the worse for its adventure"
STORE L00,#78
GET_PARENT L00 -> L00
JE L00,#75 [TRUE] L0028
PRINT_RET "."
L0028: STORE L00,#78
REMOVE_OBJ L00
INSERT_OBJ L00,"Cellars South"
CALL_2N R0041 (#03)
PRINT_RET ", and then almost looks proud as a magnet cuts out and
something metal drops off the underside of the mouse onto the floor. The lost
key is found!"
L0029: RTRUE
L0030: PRINT_RET "The mouse emits a low-pitched bleep."
Routine R0146, 3 locals
JE G4c,#18 [TRUE] L0001
RFALSE
L0001: PRINT "The layout is roughly as follows:
"
CALL_1N R0171
STORE L00,#00
DEC L00
L0002: JL L00,#06 [FALSE] L0007
INC L00
PRINT " "
STORE L01,#00
DEC L01
L0003: JL L01,#08 [FALSE] L0006
INC L01
CALL_VS R0391 (L01,L00) -> L02
JE L02,#00 [FALSE] L0004
PRINT "..."
L0004: JE L02,#01 [FALSE] L0005
PRINT_CHAR '#'
PRINT_CHAR '#'
PRINT_CHAR '#'
L0005: JUMP L0003
L0006: NEW_LINE
JUMP L0002
L0007: CALL_1N R0172
RTRUE
Routine R0147, 0 locals
JE G4c,#3d [FALSE] L0002
JE G23,#00 [FALSE] L0001
STORE G23,#01
CALL_2N R0041 (#0c)
PRINT_RET "Is it really wise to go meddling with things here?
Well, only one way to find out. Don't expect a second warning!"
L0001: STORE G05,#04
STORE G01,#00
SUB G01,#63 -> G01
PRINT_RET "Mmm. On the whole, it's probably best not to alter one
of the fundamental constants of the physical universe while still inside it. On
the bright side, for once you are unlikely to get the blame."
L0002: RFALSE
Routine R0148, 0 locals
JE G4c,#67,#40 [FALSE] L0001
STORE G4c,#3d
L0001: JE G4c,#3d [TRUE] L0002
RFALSE
L0002: TEST_ATTR "steel wrench",#19 [FALSE] L0003
PRINT_RET "The joint is fairly safe already."
L0003: GET_PARENT "steel wrench" -> -(SP)
JE (SP)+,G03 [TRUE] L0004
PRINT_RET "With your bare hands, you are unable to tighten the
joint."
L0004: SET_ATTR "steel wrench",#19
CALL_2N R0040 (#0d)
CLEAR_ATTR "book of Twenties poetry",#01
SET_ATTR "book of Twenties poetry",#06
CLEAR_ATTR "romantic novel",#01
SET_ATTR "romantic novel",#06
PRINT_RET "You tighten the joint with the wrench, just enough for
the books to fall away without a gushing explosion of water."
Routine R0149, 0 locals
JE G4c,#18 [FALSE] L0001
JUMP L0002
L0001: JE G4c,#1a [TRUE] L0002
RFALSE
L0002: JG G1b,#07 [FALSE] L0003
PRINT_RET "Four men in druidic furs are standing on the corners of
the mosaic, in some kind of sinister conference. This old villa must be some
kind of rendezvous point. Between the men a bluish stone rests on the mosaic
floor."
L0003: PRINT_RET "You see across the mosaic floor of the moonlit atrium."
Routine R0150, 2 locals
LOADW #00,#0c -> -(SP)
STOREW (SP)+,L00,L01
RTRUE
Routine R0151, 2 locals
REMOVE_OBJ " "
STORE L01,#00
DEC L01
L0001: JL L01,#1f [FALSE] L0002
INC L01
CLEAR_ATTR " ",L01
JUMP L0001
L0002: PUT_PROP " ",#03,S960
PUT_PROP " ",#04,#00
PUT_PROP " ",#02,#00
PUT_PROP " ",#05,#ffff
PUT_PROP " ",#06,#ffff
GET_PROP_ADDR " ",#01 -> L00
STOREW L00,#00,"zzzzzzzzz"
STOREW L00,#01,"zzzzzzzzz"
STOREW L00,#02,"zzzzzzzzz"
STOREW L00,#03,"zzzzzzzzz"
INSERT_OBJ " ",G00
JE G00,#91 [FALSE] L0003
CALL_VN R0150 (#00,#0107)
PUT_PROP " ",#02,S961
SET_ATTR " ",#0e
SET_ATTR " ",#1f
STOREW L00,#00,"mosaic"
L0003: JE G00,#2e [FALSE] L0004
CALL_VN R0150 (#00,#0109)
PUT_PROP " ",#02,S962
SET_ATTR " ",#0e
STOREW L00,#00,"furniture"
L0004: JE G00,#7b [FALSE] L0005
CALL_VN R0150 (#00,#010c)
SET_ATTR " ",#0e
STOREW L00,#00,"infinity"
STOREW L00,#01,"lemniscus"
STOREW L00,#02,"symbol"
L0005: JE G00,#8f [FALSE] L0006
CALL_VN R0150 (#00,#010f)
SET_ATTR " ",#0e
STOREW L00,#00,"plane"
STOREW L00,#01,"tree"
STOREW L00,#02,"family"
L0006: JE G00,#98 [FALSE] L0007
CALL_VN R0150 (#00,#0113)
SET_ATTR " ",#0e
STOREW L00,#00,"maze"
STOREW L00,#01,"layout"
PUT_PROP " ",#05,#4fb7
L0007: JE G00,#ae [FALSE] L0008
CALL_VN R0150 (#00,#0117)
SET_ATTR " ",#0e
STOREW L00,#00,"folly"
STOREW L00,#01,"tower"
STOREW L00,#02,"bricks"
PUT_PROP " ",#02,S963
L0008: JE G00,#ac [FALSE] L0009
CALL_VN R0150 (#00,#011b)
SET_ATTR " ",#0e
STOREW L00,#00,"plaque"
PUT_PROP " ",#02,S964
L0009: JE G00,#a1 [FALSE] L0010
CALL_VN R0150 (#00,#011d)
SET_ATTR " ",#0f
STOREW L00,#00,"tomb"
STOREW L00,#01,"tombstone"
STOREW L00,#02,"stone"
PUT_PROP " ",#04,S965
PUT_PROP " ",#02,S966
L0010: JE G00,#a2 [FALSE] L0012
CALL_VN R0150 (#00,#0120)
SET_ATTR " ",#0f
STOREW L00,#00,"staircase"
STOREW L00,#01,"aluminium"
PUT_PROP " ",#04,S967
PUT_PROP " ",#02,S968
JE G26,#00 [FALSE] L0011
REMOVE_OBJ " "
L0011: CLEAR_ATTR "metal wall",#19
L0012: JE G00,#cc [FALSE] L0022
CALL_VN R0150 (#00,#0127)
SET_ATTR " ",#0f
SET_ATTR " ",#1f
STOREW L00,#00,"impressio"
STOREW L00,#01,"painting"
STOREW L00,#02,"mural"
PUT_PROP " ",#02,S969
RANDOM #0a -> L01
JE L01,#01 [FALSE] L0013
PUT_PROP " ",#04,S970
L0013: JE L01,#02 [FALSE] L0014
PUT_PROP " ",#04,S971
L0014: JE L01,#03 [FALSE] L0015
PUT_PROP " ",#04,S972
L0015: JE L01,#04 [FALSE] L0016
PUT_PROP " ",#04,S973
L0016: JE L01,#05 [FALSE] L0017
PUT_PROP " ",#04,S974
L0017: JE L01,#06 [FALSE] L0018
PUT_PROP " ",#04,S975
L0018: JE L01,#07 [FALSE] L0019
PUT_PROP " ",#04,S976
L0019: JE L01,#08 [FALSE] L0020
PUT_PROP " ",#04,S977
L0020: JE L01,#09 [FALSE] L0021
PUT_PROP " ",#04,S978
L0021: JE L01,#0a [FALSE] L0022
PUT_PROP " ",#04,S979
L0022: JE G00,#90 [FALSE] L0024
SET_ATTR " ",#0f
TEST_ATTR "Lawn Ornaments",#19 [FALSE] L0023
CALL_VN R0150 (#00,#012f)
STOREW L00,#00,"ancient"
STOREW L00,#01,"well"
PUT_PROP " ",#04,S980
PUT_PROP " ",#02,S981
SET_ATTR " ",#08
SET_ATTR " ",#0a
JUMP L0024
L0023: CALL_VN R0150 (#00,#013a)
STOREW L00,#00,"plaster"
STOREW L00,#01,"statuette"
STOREW L00,#02,"bust"
STOREW L00,#03,"statue"
PUT_PROP " ",#04,S982
PUT_PROP " ",#02,S983
L0024: JE G00,#38 [FALSE] L0025
SET_ATTR " ",#0f
CALL_VN R0150 (#00,#0140)
STOREW L00,#00,"sepia"
STOREW L00,#01,"photo"
STOREW L00,#02,"photograp"
PUT_PROP " ",#03,S984
PUT_PROP " ",#04,S985
PUT_PROP " ",#02,S986
L0025: JE G00,#a3 [FALSE] L0026
SET_ATTR " ",#0f
CALL_VN R0150 (#00,#0146)
STOREW L00,#00,"contrapti"
STOREW L00,#01,"panel"
STOREW L00,#02,"iron"
STOREW L00,#03,"grid"
PUT_PROP " ",#04,S987
L0026: JE G00,#aa [FALSE] L0027
SET_ATTR " ",#0f
CALL_VN R0150 (#00,#0151)
STOREW L00,#00,"large"
STOREW L00,#01,"dial"
PUT_PROP " ",#04,S988
PUT_PROP " ",#02,S989
PUT_PROP " ",#05,#4fd2
L0027: JE G00,#ca [FALSE] L0028
REMOVE_OBJ " "
L0028: JE G00,#df [FALSE] L0029
SET_ATTR " ",#0e
CALL_VN R0150 (#00,#0154)
STOREW L00,#00,"table"
L0029: JE G00,#e6 [FALSE] L0030
SET_ATTR " ",#0e
SET_ATTR " ",#07
SET_ATTR " ",#0b
SET_ATTR " ",#16
SET_ATTR " ",#15
CALL_VN R0150 (#00,#0158)
STOREW L00,#00,"door"
STOREW L00,#01,"window"
PUT_PROP " ",#02,S990
PUT_PROP " ",#13,#e6
PUT_PROP " ",#08,#09
L0030: JE G00,#3f [FALSE] L0031
SET_ATTR " ",#01
SET_ATTR " ",#0f
CALL_VN R0150 (#00,#015c)
STOREW L00,#00,"water"
STOREW L00,#01,"pipe"
STOREW L00,#02,"joint"
STOREW L00,#03,"pipes"
PUT_PROP " ",#02,S991
PUT_PROP " ",#05,#5008
L0031: JE G00,#0115 [FALSE] L0032
SET_ATTR " ",#0e
CALL_VN R0150 (#00,#015f)
STOREW L00,#00,"hypocaust"
STOREW L00,#01,"vents"
PUT_PROP " ",#05,#5033
L0032: JE G00,#fe [FALSE] L0033
SET_ATTR " ",#0e
SET_ATTR " ",#1f
CALL_VN R0150 (#00,#0164)
STOREW L00,#00,"greek"
STOREW L00,#01,"frieze"
PUT_PROP " ",#02,S992
L0033: JE G00,#89 [FALSE] L0034
SET_ATTR " ",#04
SET_ATTR " ",#05
CALL_VN R0150 (#00,#0169)
STOREW L00,#00,"druid"
PUT_PROP " ",#04,S993
TEST_ATTR "Shrine of the Bear",#19 [FALSE] L0034
REMOVE_OBJ " "
L0034: RTRUE
Routine R0152, 0 locals
Action routine for:
"pretty"
STORE G2a,#01
CALL_2N R0041 (#05)
STORE G41,#01
PRINT_RET ""Curses" is now in its (supposedly) "pretty" mode."
Routine R0153, 0 locals
Action routine for:
"plain"
STORE G2a,#00
STORE G41,#01
PRINT_RET ""Curses" is now in its "plain" printing mode."
Routine R0154, 0 locals
Action routine for:
"notify"
"notify on"
STORE G2b,#01
PRINT_RET ""Curses" now notifies you of important changes in your
score."
Routine R0155, 0 locals
Action routine for:
"notify off"
STORE G2b,#00
PRINT_RET ""Curses" will not now notify you of changes in your
score."
Routine R0156, 0 locals
Action routine for:
"notify full"
STORE G2b,#02
PRINT_RET ""Curses" now notifies you of all changes in your
score."
Routine R0157, 1 local
ERASE_WINDOW #ffff
PRINT "
"
LOADB #00,#21 -> L00
JE L00,#00 [FALSE] L0001
STORE L00,#50
L0001: SUB L00,#32 -> -(SP)
DIV (SP)+,#02 -> L00
SET_TEXT_STYLE BOLDFACE
LOADW #00,#08 -> -(SP)
OR #02,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
STORE Gef,L00
JL Gef,#01 [TRUE] L0003
L0002: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0002
L0003: PRINT " Welcome to CURSES
"
SET_TEXT_STYLE ROMAN
PRINT "
"
STORE Gef,L00
JL Gef,#01 [TRUE] L0005
L0004: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0004
L0005: PRINT " [Please press SPACE to begin.]
"
LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
RANDOM #03 -> L00
JE L00,#01 [FALSE] L0006
STOREW G80,#00,S994
STOREW G80,#01,S995
STOREW G80,#02,S996
STOREW G80,#03,S997
STOREW G80,#04,#00
STOREW G80,#05,S998
CALL_VS R0044 (#06,#31,G80) -> Gef
L0006: JE L00,#02 [FALSE] L0007
STOREW G80,#00,S999
STOREW G80,#01,S1000
STOREW G80,#02,#00
STOREW G80,#03,S1001
STOREW G80,#04,S1002
CALL_VS R0044 (#05,#1f,G80) -> Gef
L0007: JE L00,#03 [FALSE] L0008
STOREW G80,#00,S1003
STOREW G80,#01,S1004
STOREW G80,#02,S1005
STOREW G80,#03,#00
STOREW G80,#04,S1006
CALL_VS R0044 (#05,#2c,G80) -> Gef
L0008: READ_CHAR #01,#00,#00 -> L00
JE L00,#20,#0a,#0d [FALSE] L0008
ERASE_WINDOW #ffff
RTRUE
Routine R0158, 0 locals
RTRUE
Routine R0159, 2 locals
LOADB #00,#21 -> L00
JE L00,#00 [FALSE] L0001
STORE L00,#50
L0001: LOADW #00,#08 -> -(SP)
OR #02,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
JE G2a,#01 [FALSE] L0002
SPLIT_WINDOW #02
JUMP L0003
L0002: SPLIT_WINDOW #01
L0003: BUFFER_MODE #00
SET_WINDOW #01
SET_TEXT_STYLE REVERSE
JG G05,#00 [FALSE] L0004
STORE G41,#01
L0004: JE G41,#01 [FALSE] L0008
SET_CURSOR #01,#01
STORE Gef,L00
JL Gef,#01 [TRUE] L0006
L0005: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0005
L0006: JE G2a,#01 [FALSE] L0008
SET_CURSOR #02,#01
STORE Gef,L00
JL Gef,#01 [TRUE] L0008
L0007: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0007
L0008: JE G41,#01 [TRUE] L0009
JE G42,G00 [TRUE] L0012
L0009: SET_CURSOR #01,#02
PRINT_OBJ G00
STORE Gef,#14
JL Gef,#01 [TRUE] L0011
L0010: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0010
L0011: STORE G42,G00
STORE G41,#01
L0012: JE G2a,#00 [FALSE] L0013
SUB L00,#0f -> L01
SET_CURSOR #01,L01
STORE G44,G01
PRINT_NUM G01
PRINT "/"
PRINT_NUM G02
PRINT " "
L0013: JE G2a,#01 [FALSE] L0042
JE G41,#01 [FALSE] L0016
SUB L00,#23 -> L01
SET_CURSOR #01,L01
JG G05,#00 [FALSE] L0014
PRINT "Final score: "
JUMP L0015
L0014: PRINT "Score: "
L0015: JUMP L0017
L0016: SUB L00,#1c -> L01
SET_CURSOR #01,L01
L0017: JE G41,#01 [TRUE] L0018
JE G44,G01 [TRUE] L0019
L0018: PRINT_NUM G01
JG G05,#00 [FALSE] L0019
PRINT "/550"
L0019: SET_CURSOR #02,L01
JE G41,#01 [FALSE] L0020
PRINT "Turns: "
L0020: PRINT_NUM G02
JE G41,#01 [TRUE] L0021
JE G43,G06 [TRUE] L0042
L0021: STORE G43,G06
SUB L00,#14 -> L01
SET_CURSOR #02,L01
JE G06,#01 [FALSE] L0022
PRINT " June 3rd, 1993"
L0022: JE G06,#02 [FALSE] L0023
PRINT " October 5th, 1922"
L0023: JE G06,#03 [FALSE] L0024
PRINT "October 31st, 1988"
L0024: JE G06,#05 [FALSE] L0025
PRINT " June 3rd, 1993"
L0025: JE G06,#06 [FALSE] L0026
PRINT " March 14th, 1808"
L0026: JE G06,#07 [FALSE] L0027
PRINT " Sixth century AD"
L0027: JE G06,#09 [FALSE] L0028
PRINT " June 3rd, 1993"
L0028: JE G06,#0b [FALSE] L0029
PRINT " Winter of 275 BC"
L0029: JE G06,#0c [FALSE] L0030
PRINT " June 3rd, 1993"
L0030: JE G06,#0a,#0d,#04 [FALSE] L0031
PRINT " "
L0031: SET_CURSOR #02,#02
JE G06,#01 [FALSE] L0032
PRINT "(in Meldrew Hall) "
L0032: JE G06,#02 [FALSE] L0033
PRINT "(in the Unreal City) "
L0033: JE G06,#03 [FALSE] L0034
PRINT "(Hamburg by night) "
L0034: JE G06,#04 [FALSE] L0035
PRINT "(in the Tarot box) "
L0035: JE G06,#05 [FALSE] L0036
PRINT "(in the gardens) "
L0036: JE G06,#06 [FALSE] L0037
PRINT "(in the gardens) "
L0037: JE G06,#07 [FALSE] L0038
PRINT "(in the Master Game) "
L0038: JE G06,#08,#0a [FALSE] L0039
PRINT "(dreaming?) "
L0039: JE G06,#09 [FALSE] L0040
PRINT "(in the catacombs) "
L0040: JE G06,#0b [FALSE] L0041
PRINT "(in Alexandria) "
L0041: JE G06,#0c [FALSE] L0042
PRINT "(northeast of the House)"
L0042: SET_TEXT_STYLE ROMAN
BUFFER_MODE #01
SET_CURSOR #01,#01
SET_WINDOW #00
LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
STORE G41,#00
RTRUE
Routine R0160, 1 local
Action routine for:
"score"
JE G05,#00 [FALSE] L0014
JE G00,#a8 [FALSE] L0001
PRINT "Inside the golden orb. "
JUMP L0013
L0001: JE G06,#01 [FALSE] L0002
PRINT "This is the afternoon of June 3rd, 1993, and you are in
Meldrew Hall. "
L0002: JE G06,#02 [FALSE] L0003
PRINT "It is early morning on October 5th, 1922, and you are
in the Unreal City. "
L0003: JE G06,#03 [FALSE] L0004
PRINT "It is nearly midnight on October 31st, 1988, and you
are in a museum in Hamburg. "
L0004: JE G06,#04 [FALSE] L0005
PRINT "You are passing among the strange, unearthly world of
the Tarot box. "
L0005: JE G06,#05 [FALSE] L0006
PRINT "It is the afternoon of June 3rd, 1993, and you are in
the gardens. "
L0006: JE G06,#06 [FALSE] L0007
PRINT "It is about noon on March 14th, 1808, and you are in
the gardens. "
L0007: JE G06,#07 [FALSE] L0008
PRINT "It is some time in the sixth century A.D., and you are
in the Master Game. "
L0008: JE G06,#08,#0a [FALSE] L0009
PRINT "Time seems to have no meaning, and you are dreaming. "
L0009: JE G06,#09 [FALSE] L0010
PRINT "It is the afternoon of June 3rd, 1993, and you are in
the catacombs beneath the gardens. "
L0010: JE G06,#0b [FALSE] L0011
PRINT "It is some time in the winter of 275 B.C., the reign of
Ptolemy II, and you are in ancient Alexandria. "
L0011: JE G06,#0c [FALSE] L0012
PRINT "It is the afternoon of June 3rd, 1993, and you are
northeast of Meldrew Hall. "
L0012: JE G06,#0d [FALSE] L0013
PRINT "The Spirit World, centuries ahead of your sleeping
body. "
L0013: PRINT "You have so far scored "
L0014: JG G05,#00 [FALSE] L0015
PRINT "In that game you scored "
L0015: PRINT_NUM G01
PRINT " out of a possible 550, in "
PRINT_NUM G02
PRINT " turn"
JE G02,#01 [TRUE] L0016
PRINT "s"
L0016: PRINT ", earning you the rank of "
STORE L00,G01
LOADB G13,#0b -> -(SP)
JE #00,(SP)+ [TRUE] L0017
SUB L00,#32 -> L00
L0017: JL L00,#01f4 [TRUE] L0018
PRINT_RET "happy Tourist."
L0018: JE L00,#01f3 [FALSE] L0019
PRINT_RET "very nearly happy Tourist."
L0019: JL L00,#01c2 [TRUE] L0020
PRINT_RET "master Druid."
L0020: JL L00,#01a9 [TRUE] L0021
PRINT_RET "journeyman Druid."
L0021: JL L00,#0190 [TRUE] L0022
PRINT_RET "apprentice Druid."
L0022: JL L00,#0177 [TRUE] L0023
PRINT_RET "Master Navigator."
L0023: JL L00,#0154 [TRUE] L0024
PRINT_RET "Navigator."
L0024: JL L00,#0136 [TRUE] L0025
PRINT_RET "Voyager."
L0025: JL L00,#0118 [TRUE] L0026
PRINT_RET "Explorer."
L0026: JL L00,#fa [TRUE] L0027
PRINT_RET "expert Traveller."
L0027: JL L00,#d2 [TRUE] L0028
PRINT_RET "Traveller."
L0028: JL L00,#aa [TRUE] L0029
PRINT_RET "Adventurer."
L0029: JL L00,#96 [TRUE] L0030
PRINT_RET "Connoisseur."
L0030: JL L00,#64 [TRUE] L0031
PRINT_RET "Jack-of-all-trades."
L0031: JL L00,#4b [TRUE] L0032
PRINT_RET "Dilletante."
L0032: JL L00,#32 [TRUE] L0033
PRINT_RET "cynical Tourist."
L0033: JL L00,#23 [TRUE] L0034
PRINT_RET "experienced Tourist."
L0034: JL L00,#14 [TRUE] L0035
PRINT_RET "seasoned Tourist."
L0035: JL L00,#0a [TRUE] L0036
PRINT_RET "casual Tourist."
L0036: JL L00,#01 [TRUE] L0037
PRINT_RET "gauche Tourist."
L0037: JL L00,#00 [TRUE] L0038
PRINT_RET "hapless Tourist."
L0038: ADD #63,L00 -> -(SP)
JE #00,(SP)+ [FALSE] L0039
PRINT_RET "irresponsible deity."
L0039: PRINT_RET "accursed Tourist."
Routine R0161, 2 locals
PRINT " "
STORE L01,L00
JL L01,#00 [FALSE] L0001
SUB #00,L00 -> L01
MUL L01,#0a -> L01
L0001: JL L01,#0a [FALSE] L0002
PRINT " "
JUMP L0004
L0002: JL L01,#64 [FALSE] L0003
PRINT " "
JUMP L0004
L0003: JL L01,#03e8 [FALSE] L0004
PRINT " "
L0004: PRINT_NUM L00
PRINT " "
RTRUE
Routine R0162, 2 locals
JE L00,#15 [FALSE] L0001
STORE L01,#00
SUB L01,#32 -> L01
L0001: CALL_2N R0161 (L01)
JE L00,#00 [FALSE] L0002
PRINT_RET "reading postcard"
L0002: JE L00,#01 [FALSE] L0003
PRINT_RET "recharging torch"
L0003: JE L00,#02 [FALSE] L0004
PRINT_RET "exorcism"
L0004: JE L00,#03 [FALSE] L0005
PRINT_RET "opening secret door"
L0005: JE L00,#04 [FALSE] L0006
PRINT_RET "opening demijohn"
L0006: JE L00,#05 [FALSE] L0007
PRINT_RET "using dumbwaiter"
L0007: JE L00,#06 [FALSE] L0008
PRINT_RET "charging a rod"
L0008: JE L00,#07 [FALSE] L0009
PRINT_RET "firing a rod"
L0009: JE L00,#08 [FALSE] L0010
PRINT_RET "exposing radio"
L0010: JE L00,#09 [FALSE] L0011
PRINT_RET "sporting a daisy chain"
L0011: JE L00,#0a [FALSE] L0012
PRINT_RET "placating Aunt Jemima"
L0012: JE L00,#0b [FALSE] L0013
PRINT_RET "rescuing Andromeda"
L0013: JE L00,#0c [FALSE] L0014
PRINT_RET "uncovering battery"
L0014: JE L00,#0d [FALSE] L0015
PRINT_RET "mending the plumbing"
L0015: JE L00,#0e [FALSE] L0016
PRINT_RET "scenting a passage"
L0016: JE L00,#0f [FALSE] L0017
PRINT_RET "reflecting"
L0017: JE L00,#10 [FALSE] L0018
PRINT_RET "solving the grid"
L0018: JE L00,#11 [FALSE] L0019
PRINT_RET "winning the orb"
L0019: JE L00,#12 [FALSE] L0020
PRINT_RET "buying map of Paris"
L0020: JE L00,#13 [FALSE] L0021
PRINT_RET "filling the arc"
L0021: JE L00,#14 [FALSE] L0022
PRINT_RET "getting into the well"
L0022: JE L00,#15 [FALSE] L0023
PRINT_RET "acquiring the mascot"
L0023: JE L00,#16 [FALSE] L0024
PRINT_RET "eating between meals"
L0024: JE L00,#17 [FALSE] L0025
PRINT_RET "smoke detecting"
L0025: JE L00,#18 [FALSE] L0026
PRINT_RET "putting a ship in a bottle"
L0026: JE L00,#19 [FALSE] L0027
PRINT_RET "parachuting on deck"
L0027: JE L00,#1a [FALSE] L0028
PRINT_RET "sleeping in Alison's bed"
L0028: JE L00,#1b [FALSE] L0029
PRINT_RET "opening sandstone crevice"
L0029: JE L00,#1c [FALSE] L0030
PRINT_RET "identifying a rod"
L0030: JE L00,#1d [FALSE] L0031
PRINT_RET "dislodging the watch"
L0031: JE L00,#1e [FALSE] L0032
PRINT_RET "hypnosis"
L0032: JE L00,#1f [FALSE] L0033
PRINT_RET "passing security"
L0033: JE L00,#20 [FALSE] L0034
PRINT_RET "restoring the Temple"
L0034: JE L00,#21 [FALSE] L0035
PRINT_RET "answering Homer"
L0035: JE L00,#22 [FALSE] L0036
PRINT_RET "summoning the oracle"
L0036: JE L00,#23 [FALSE] L0037
PRINT_RET "unearthing strongbox"
L0037: JE L00,#24 [FALSE] L0038
PRINT_RET "startling Austin"
L0038: JE L00,#25 [FALSE] L0039
PRINT_RET "washing away the stone"
L0039: JE L00,#26 [FALSE] L0040
PRINT_RET "provoking the librarians"
L0040: JE L00,#27 [FALSE] L0041
PRINT_RET "twisting the sphinx's nose"
L0041: JE L00,#28 [FALSE] L0042
PRINT_RET "depositing the quarterstaff"
L0042: JE L00,#29 [FALSE] L0043
PRINT_RET "rising in the afterlife"
L0043: JE L00,#2a [FALSE] L0044
PRINT_RET "reviving the knight"
L0044: JE L00,#2b [FALSE] L0045
PRINT_RET "encouraging the knight"
L0045: JE L00,#2c [FALSE] L0046
PRINT_RET "choosing a High Rod"
L0046: PRINT_RET "(something else)"
Routine R0163, 3 locals
Action routine for:
"full"
CALL_1N R0160
JE G01,#00 [FALSE] L0001
RFALSE
L0001: NEW_LINE
STORE L02,#00
JG G05,#00 [FALSE] L0002
PRINT "The score was "
L0002: JE G05,#00 [FALSE] L0003
PRINT "The score is "
L0003: PRINT "made up as follows:
"
STORE L00,#01
L0004: JL L00,G40 [FALSE] L0008
STORE L01,#00
L0005: JL L01,#2f [FALSE] L0007
LOADB G13,L01 -> -(SP)
JE (SP)+,L00 [FALSE] L0006
LOADB G12,L01 -> -(SP)
CALL_VN R0162 (L01,(SP)+)
ADD L02,L01 -> L02
L0006: INC L01
JUMP L0005
L0007: INC L00
JUMP L0004
L0008: JE G16,#00 [TRUE] L0009
CALL_2N R0161 (G16)
PRINT "discovering rods
"
L0009: JE G14,#00 [TRUE] L0010
CALL_2N R0161 (G14)
PRINT "finding sundry items
"
L0010: JE G15,#00 [TRUE] L0011
CALL_2N R0161 (G15)
PRINT "visiting various places
"
L0011: JE G17,#00 [TRUE] L0012
CALL_2N R0161 (#05)
PRINT "bonus for a good try
"
L0012: ADD G14,G15 -> -(SP)
ADD G16,(SP)+ -> -(SP)
ADD L02,(SP)+ -> L02
JE G17,#00 [TRUE] L0013
ADD L02,#05 -> L02
L0013: ADD G01,#63 -> -(SP)
JE (SP)+,#00 [FALSE] L0014
ADD L02,#63 -> L02
SUB #00,L02 -> L02
CALL_2N R0161 (L02)
PRINT "destroying universe
"
L0014: NEW_LINE
CALL_2N R0161 (G01)
PRINT "total (out of 550)
"
JE G05,#02 [FALSE] L0015
LOADB G13,#0b -> -(SP)
JE #00,(SP)+ [FALSE] L0015
PRINT "
Sadly, you missed out on the 50-point bonus for rescuing Andromeda.
"
L0015: RFALSE
Routine R0164, 1 local
Action routine for:
"die"
PRINT "Are you sure you want to quit? "
TEST_ATTR "southeast wall",#19 [TRUE] L0001
CALL_2N R0043 (#17)
SET_ATTR "southeast wall",#19
L0001: STOREB G47,#01,#00
CALL_1N R0159
READ G47,G48 -> Gef
LOADW G48,#01 -> L00
JE L00,"yes" [FALSE] L0002
QUIT
L0002: JE L00,"y" [FALSE] L0003
QUIT
L0003: JE L00,"no" [FALSE] L0004
RTRUE
L0004: JE L00,"n" [FALSE] L0005
RTRUE
L0005: PRINT "Please answer yes or no."
PRINT_CHAR '>'
PRINT_CHAR ' '
JUMP L0001
Routine R0165, 1 local
Action routine for:
"restart"
PRINT "Are you sure you want to restart? "
L0001: STOREB G47,#01,#00
CALL_1N R0159
READ G47,G48 -> Gef
LOADW G48,#01 -> L00
JE L00,"yes","y" [FALSE] L0002
STORE G1e,#00
LOADW #00,#08 -> -(SP)
AND (SP)+,#fffe -> L00
STOREW #00,#08,L00
RESTART
L0002: JE L00,"no" [FALSE] L0003
RTRUE
L0003: JE L00,"n" [FALSE] L0004
RTRUE
L0004: PRINT "Please answer yes or no."
PRINT_CHAR '>'
PRINT_CHAR ' '
JUMP L0001
Routine R0166, 0 locals
Action routine for:
"restore"
STORE G41,#01
RESTORE -> Gef
JE Gef,#02 [TRUE] L0001
PRINT_RET "Failed."
L0001: NEW_LINE
CALL_1N R0198
RTRUE
Routine R0167, 0 locals
Action routine for:
"save"
STORE G41,#01
JE G00,#0121 [FALSE] L0001
PRINT_RET "The angel looks at you reproachfully."
L0001: JE G00,#011f [FALSE] L0002
PRINT_RET "The demon looks at you viciously."
L0002: SAVE -> Gef
JE Gef,#00 [FALSE] L0003
PRINT_RET "Failed."
L0003: PRINT "Ok.
"
RTRUE
Routine R0168, 0 locals
Action routine for:
"verify"
VERIFY [TRUE] L0001
JUMP L0002
L0001: PRINT_RET "The game file has verified as intact."
L0002: PRINT_RET "The game file did not verify properly, and may be
corrupted (unless you are running it on a primitive interpreter which does not
properly implement the VERIFY code: the InfoTaskForce one does implement it,
but some may not)."
Routine R0169, 1 local
Action routine for:
"script"
"script on"
JE G1e,#01 [FALSE] L0001
PRINT_RET "Transcripting is already on."
L0001: STORE G1e,#01
LOADW #00,#08 -> -(SP)
OR (SP)+,#01 -> L00
STOREW #00,#08,L00
PRINT "Start of a transcript of
"
CALL_1N R0029
RTRUE
Routine R0170, 1 local
Action routine for:
"script off"
"noscript"
JE G1e,#00 [FALSE] L0001
PRINT_RET "Transcripting is already off."
L0001: PRINT "
End of transcript.
"
STORE G1e,#00
LOADW #00,#08 -> -(SP)
AND (SP)+,#fffe -> L00
STOREW #00,#08,L00
RTRUE
Routine R0171, 1 local
LOADW #00,#08 -> -(SP)
OR (SP)+,#02 -> L00
STOREW #00,#08,L00
RTRUE
Routine R0172, 1 local
LOADW #00,#08 -> -(SP)
AND (SP)+,#fffd -> L00
STOREW #00,#08,L00
RTRUE
Routine R0173, 1 local
Action routine for:
"get invent"
"i"
GET_CHILD G03 -> L00 [TRUE] L0001
L0001: PRINT "You are "
JE G00,#a8 [FALSE] L0002
PRINT "bathed in a curious white light, and "
L0002: JE L00,#00 [FALSE] L0003
PRINT_RET "carrying nothing."
L0003: PRINT "carrying:
"
CALL_2N R0174 (G03)
CALL_2N R0041 (#00)
RTRUE
Routine R0174, 4 locals
STORE L02,#01
JE L01,#00 [TRUE] L0003
STORE L03,#01
DEC L03
L0001: JL L03,L01 [FALSE] L0002
INC L03
PRINT " "
JUMP L0001
L0002: CALL_VS R0200 (L00,#00) -> L02
NEW_LINE
L0003: JE L02,#00 [FALSE] L0004
RTRUE
L0004: GET_CHILD L00 -> L02 [TRUE] L0005
L0005: JE L02,#00 [TRUE] L0007
ADD L01,#01 -> -(SP)
CALL_VN R0174 (L02,(SP)+)
GET_SIBLING L02 -> L02 [TRUE] L0006
L0006: JUMP L0005
L0007: RTRUE
Routine R0175, 1 local
Action routine for:
"get MULTI"
"extract MULTI"
"peel NOUN"
"peel off NOUN"
CALL_2S R0176 (G00) -> L00
JE L00,#00 [TRUE] L0001
RTRUE
L0001: CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0002
RTRUE
L0002: STORE G53,G54
JE G53,#00 [FALSE] L0003
PRINT "Taken.
"
L0003: RTRUE
Routine R0176, 4 locals
JE G4d,G03 [FALSE] L0001
PRINT_RET "As the bishop said to the actress."
L0001: TEST_ATTR G4d,#04 [FALSE] L0002
PRINT "I don't suppose "
CALL_2N R0290 (G4d)
PRINT_RET " would care for that."
L0002: GET_PARENT G4d -> L01
JE L01,G03 [FALSE] L0003
PRINT_RET "You already have that."
L0003: JE L01,L00 [TRUE] L0007
TEST_ATTR L01,#08 [TRUE] L0004
PRINT_RET "That isn't available."
L0004: TEST_ATTR L01,#0a [TRUE] L0005
PRINT "Unfortunately the "
PRINT_OBJ L01
PRINT_RET " isn't open."
L0005: GET_PARENT L01 -> L01
JE L01,G03 [FALSE] L0006
STORE L01,L00
L0006: JUMP L0003
L0007: TEST_ATTR G4d,#0e [FALSE] L0008
PRINT_RET "That's hardly portable."
L0008: JE G4d,#82 [FALSE] L0009
PRINT_RET "It's too heavy to lift off the casters."
L0009: TEST_ATTR G4d,#0f [FALSE] L0010
PRINT_RET "Fixed in place."
L0010: GET_CHILD G03 -> L02 [TRUE] L0011
L0011: STORE L03,#00
L0012: JE L02,#00 [TRUE] L0015
TEST_ATTR L02,#02 [TRUE] L0013
ADD L03,#01 -> L03
L0013: GET_SIBLING L02 -> L02 [TRUE] L0014
L0014: JUMP L0012
L0015: JG L03,#04 [FALSE] L0023
GET_PARENT "canvas rucksack" -> -(SP)
JE (SP)+,G03 [TRUE] L0016
PRINT_RET "You're carrying too many things already."
L0016: GET_CHILD G03 -> L03 [TRUE] L0017
L0017: STORE L02,#00
L0018: JE L03,#00 [TRUE] L0021
JE L03,#4a [TRUE] L0019
TEST_ATTR L03,#02 [TRUE] L0019
JE L03,#25 [TRUE] L0019
STORE L02,L03
L0019: GET_SIBLING L03 -> L03 [TRUE] L0020
L0020: JUMP L0018
L0021: JE L02,#00 [TRUE] L0022
PRINT "(putting "
CALL_2N R0290 (L02)
PRINT " into the rucksack to make room)
"
REMOVE_OBJ L02
INSERT_OBJ L02,"canvas rucksack"
JUMP L0023
L0022: PRINT_RET "You're carrying too many things already."
L0023: REMOVE_OBJ G4d
INSERT_OBJ G4d,G03
CLEAR_ATTR G4d,#01
TEST_ATTR G4d,#06 [TRUE] L0024
SET_ATTR G4d,#06
TEST_ATTR G4d,#1e [FALSE] L0024
ADD G01,#04 -> G01
ADD G14,#04 -> G14
L0024: RFALSE
Routine R0177, 1 local
Action routine for:
"hang down MULTIHELD"
"hang MULTIHELD down"
"discard MULTIHELD"
GET_PARENT G4d -> L00
JE L00,G00 [FALSE] L0001
PRINT_RET "Already on the floor."
L0001: JE L00,G03 [TRUE] L0002
PRINT_RET "You haven't got that."
L0002: TEST_ATTR G4d,#02 [FALSE] L0003
PRINT "(first taking it off)
"
CLEAR_ATTR G4d,#02
L0003: REMOVE_OBJ G4d
GET_PARENT G03 -> L00
INSERT_OBJ G4d,L00
CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0004
RTRUE
L0004: JE G00,#0c [FALSE] L0005
PRINT_RET "Dropped and lost among the darkness."
L0005: TEST_ATTR G4d,#12 [FALSE] L0006
CALL_2N R0041 (#10)
L0006: PRINT_RET "Dropped."
Routine R0178, 1 local
Action routine for:
"get MULTIINSIDE from NOUN"
"get MULTIINSIDE out of NOUN"
"extract MULTIINSIDE from NOUN"
GET_PARENT G4d -> L00
TEST_ATTR L00,#0a [TRUE] L0001
PRINT_RET "Alas, it is closed."
L0001: JE L00,G4e [TRUE] L0002
PRINT_RET "But it isn't there now."
L0002: TEST_ATTR G4e,#02 [FALSE] L0003
PRINT_RET "You'll need to take it off first."
L0003: CALL_2S R0176 (G4e) -> L00
JE L00,#00 [TRUE] L0004
RTRUE
L0004: STORE G4c,#02
CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0005
RTRUE
L0005: STORE G4c,#03
CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0006
RTRUE
L0006: PRINT "Removed.
"
RTRUE
Routine R0179, 1 local
Action routine for:
"hang MULTIEXCEPT in NOUN"
"hang MULTIEXCEPT into NOUN"
"hang MULTIEXCEPT on NOUN"
"insert MULTIEXCEPT in NOUN"
"insert MULTIEXCEPT into NOUN"
"discard MULTIEXCEPT in NOUN"
"discard MULTIEXCEPT into NOUN"
"discard MULTIEXCEPT down NOUN"
"discard MULTIEXCEPT through NOUN"
JE G4e,#0b [FALSE] L0001
STORE G4c,#09
CALL_VN R0026 (G4d,#00,G4c)
RFALSE
L0001: GET_PARENT G4d -> L00
JE L00,G03 [TRUE] L0002
PRINT_RET "You need to be holding it before you can put it into
something else."
L0002: JE G4d,G4e [FALSE] L0003
PRINT_RET "Inside itself?"
L0003: TEST_ATTR G4e,#08 [TRUE] L0004
PRINT_RET "That can't hold things."
L0004: TEST_ATTR G4e,#0a [TRUE] L0005
PRINT_RET "Alas, it is closed."
L0005: TEST_ATTR G4e,#02 [FALSE] L0006
PRINT_RET "You'll need to take it off first."
L0006: TEST_ATTR G4d,#02 [FALSE] L0007
PRINT "(first taking it off)
"
CLEAR_ATTR G4d,#02
L0007: JE G4e,#bc [FALSE] L0008
TEST_ATTR G4d,#1b [TRUE] L0008
PRINT_RET "Only cards will fit."
L0008: JE G4e,#25 [FALSE] L0009
CALL_1S R0347 -> L00
JE L00,#00 [TRUE] L0009
RTRUE
L0009: JE G4e,#3b [FALSE] L0010
CALL_1S R0346 -> L00
JE L00,#00 [TRUE] L0010
RTRUE
L0010: REMOVE_OBJ G4d
INSERT_OBJ G4d,G4e
CALL_1S R0028 -> -(SP)
JE #01,(SP)+ [FALSE] L0011
RTRUE
L0011: JE G52,#01 [FALSE] L0012
PRINT_RET "Done."
L0012: PRINT "You put the "
PRINT_OBJ G4d
PRINT " into the "
PRINT_OBJ G4e
PRINT_RET "."
Routine R0180, 2 locals
Action routine for:
"transfer NOUN to NOUN"
"bounce NOUN to NOUN"
STORE L01,#08
JE G4e,#0b [FALSE] L0001
STORE L01,#09
L0001: GET_PARENT G4d -> L00
JE L00,G03 [TRUE] L0006
L0002: JE L00,#00 [TRUE] L0005
TEST_ATTR L00,#0a [TRUE] L0003
PRINT_RET "That isn't in your possession."
L0003: GET_PARENT L00 -> L00
JE L00,G03 [FALSE] L0004
JUMP L0006
L0004: JUMP L0002
L0005: PRINT_RET "First pick that up."
L0006: REMOVE_OBJ G4d
INSERT_OBJ G4d,G03
STORE G4c,L01
CALL_VN R0026 (G4d,G4e,G4c)
RFALSE
Routine R0181, 0 locals
Action routine for:
"empty NOUN"
STORE G4e,#0b
CALL_1N R0182
RTRUE
Routine R0182, 2 locals
Action routine for:
"empty NOUN to NOUN"
"empty NOUN into NOUN"
TEST_ATTR G4d,#08 [TRUE] L0001
CALL_2N R0291 (G4d)
PRINT_RET " can't contain things."
L0001: TEST_ATTR G4d,#0a [TRUE] L0002
CALL_2N R0291 (G4d)
PRINT_RET " is closed."
L0002: JE G4e,#0b [TRUE] L0004
TEST_ATTR G4e,#08 [TRUE] L0003
CALL_2N R0291 (G4e)
PRINT_RET " can't contain things."
L0003: TEST_ATTR G4e,#0a [TRUE] L0004
CALL_2N R0291 (G4e)
PRINT_RET " is closed."
L0004: STORE L00,G4d
GET_CHILD L00 -> L00 [TRUE] L0005
L0005: JE L00,#00 [FALSE] L0006
CALL_2N R0290 (G4d)
PRINT_RET " is empty already."
L0006: JE L00,#00 [TRUE] L0008
GET_SIBLING L00 -> L01 [TRUE] L0007
L0007: PRINT_OBJ L00
PRINT ": "
STORE G4c,#0c
CALL_VN R0026 (L00,G4e,G4c)
STORE L00,L01
JUMP L0006
L0008: RTRUE
Routine R0183, 0 locals
Action routine for:
"lie"
PRINT_RET "Whatever happened to truthfulness..."
Routine R0184, 0 locals
Action routine for:
"lie down"
STORE G4d,#00
JE G00,#28 [FALSE] L0001
STORE G4d,#2b
L0001: JE G00,#5b [FALSE] L0002
STORE G4d,#5c
L0002: JE G4d,#00 [FALSE] L0003
PRINT_RET "You lie down on the floor for a while and then get up
again, feeling foolish."
L0003: CALL_1N R0185
RTRUE
Routine R0185, 1 local
Action routine for:
"get in NOUN"
"get into NOUN"
"go to NOUN"
"go into NOUN"
"go through NOUN"
"board NOUN"
"lie on NOUN"
JE G4d,#01 [FALSE] L0001
CALL_1N R0194
RTRUE
L0001: TEST_ATTR G4d,#07 [FALSE] L0002
CALL_1N R0194
RTRUE
L0002: GET_PARENT G03 -> L00
JE L00,G00 [TRUE] L0003
PRINT "But you're already in the "
PRINT_OBJ L00
PRINT_RET "."
L0003: TEST_ATTR G4d,#0d [TRUE] L0004
PRINT_RET "A surreal idea."
L0004: GET_PARENT G4d -> L00
JE L00,G00 [TRUE] L0005
PRINT_RET "You can only get into something on the floor."
L0005: REMOVE_OBJ G03
INSERT_OBJ G03,G4d
PRINT "You get into the "
PRINT_OBJ G4d
PRINT_RET "."
Routine R0186, 0 locals
Action routine for:
"get out"
"get up"
"stand"
"stand up"
"exit"
GET_PARENT G03 -> -(SP)
JE (SP)+,G00 [FALSE] L0001
PRINT_RET "But you aren't in anything at the moment."
L0001: JE G00,#0c [FALSE] L0004
JE G22,#00 [TRUE] L0002
PRINT_RET "You can't see what you're doing. It's dark."
L0002: GET_PARENT G03 -> -(SP)
JE (SP)+,#56 [FALSE] L0003
PRINT_RET ""Exit" should be used only to get out of things like
dumbwaiters. Since you're stuck here in the dark, why not go back east into the
cupboard."
L0003: PRINT_RET "You'll have to say exactly how to exit the darkness..."
L0004: REMOVE_OBJ G03
INSERT_OBJ G03,G00
PRINT "You are on your own two feet again.
"
CALL_2N R0198 (#01)
RTRUE
Routine R0187, 0 locals
Action routine for:
"go"
PRINT_RET "You'll have to say which compass direction to go in."
Routine R0188, 1 local
PRINT "
*** You have died ***
"
PRINT "Or have you? No... this isn't quite the end. You see
an intense blue-white light at the end of what seems a tunnel, and drift toward
it until you realise that you are staring, dazed, into the light of the slide
projector, and have not moved at all.
"
SET_ATTR L00,#19
RTRUE
Routine R0189, 0 locals
PRINT_RET "That seems an inappropriate direction here."
Routine R0190, 0 locals
Action routine for:
"starboard"
TEST_ATTR G00,#24 [TRUE] L0001
CALL_1N R0189
RFALSE
L0001: SET_ATTR "Prow of the Lady Magdalena",#19
CALL_VN R0026 (#04,#00,#13)
RTRUE
Routine R0191, 0 locals
Action routine for:
"port"
TEST_ATTR G00,#24 [TRUE] L0001
CALL_1N R0189
RFALSE
L0001: SET_ATTR "Prow of the Lady Magdalena",#19
CALL_VN R0026 (#05,#00,#13)
RTRUE
Routine R0192, 0 locals
Action routine for:
"fore"
TEST_ATTR G00,#24 [TRUE] L0001
CALL_1N R0189
RFALSE
L0001: SET_ATTR "Prow of the Lady Magdalena",#19
CALL_VN R0026 (#02,#00,#13)
RTRUE
Routine R0193, 0 locals
Action routine for:
"aft"
TEST_ATTR G00,#24 [TRUE] L0001
CALL_1N R0189
RFALSE
L0001: SET_ATTR "Prow of the Lady Magdalena",#19
CALL_VN R0026 (#03,#00,#13)
RTRUE
Routine R0194, 4 locals
Action routine for:
"go NOUN"
TEST_ATTR G00,#24 [FALSE] L0002
JE G4d,#04,#05,#02 [TRUE] L0001
JE G4d,#03 [FALSE] L0002
L0001: TEST_ATTR "Prow of the Lady Magdalena",#19 [TRUE] L0002
PRINT_RET "Aboard ship, in this confusing nautical world, compass
directions seem senseless."
L0002: TEST_ATTR "carbolic soap",#01 [TRUE] L0003
CALL_2N R0041 (#0d)
PRINT_RET "You're going nowhere until you make amends for that
nasty bad language."
L0003: STORE L03,#00
GET_PARENT G03 -> L00
JE G00,#0c [TRUE] L0006
JE L00,#96 [FALSE] L0005
TEST_ATTR "garden roller",#18 [FALSE] L0004
STORE L03,#96
STORE L00,#96
GET_PARENT L00 -> L00
JUMP L0006
L0004: PRINT_RET "The motor isn't on at the moment."
L0005: JE L00,G00 [TRUE] L0006
PRINT "You'll have to get out of the "
PRINT_OBJ L00
PRINT_RET " first."
L0006: GET_PROP G4d,#08 -> L01
JE L01,#00 [FALSE] L0007
PRINT_RET "That doesn't seem to be something you can walk into."
L0007: GET_PROP L00,L01 -> L01
JE L01,#00 [FALSE] L0009
JE G06,#08,#0a [FALSE] L0008
CALL_2N R0041 (#1d)
PRINT_RET "You drift in that direction, but without gaining any
ground."
L0008: GET_PROP L00,#18 -> L00
PRINT_PADDR L00
NEW_LINE
RFALSE
L0009: STORE G38,#00
JE G06,#0b [FALSE] L0013
JE G00,#01ab [FALSE] L0012
JE G4d,#08 [FALSE] L0012
GET_PARENT "Austin" -> -(SP)
JE (SP)+,#01ab [FALSE] L0010
PRINT "The Museum guards are so busy abasing themselves before
the sacred Cat (incredibly, that's Austin) that you are able to slip inside.
Austin, having at long last found owners even more gullible and undemanding
than yourself, ambles away to a life of extreme cossetting and luxury.
"
REMOVE_OBJ "Austin"
JUMP L0011
L0010: PRINT_RET "Museum guards tactfully nudge drunken louts away from
the Museum."
L0011: JUMP L0013
L0012: GET_PARENT "Austin" -> -(SP)
JE (SP)+,G00 [FALSE] L0013
PRINT "Austin strolls regally after you.
"
STORE G38,#01
L0013: TEST_ATTR L01,#07 [FALSE] L0033
TEST_ATTR L01,#01 [FALSE] L0014
PRINT_RET "You can't go that way."
L0014: TEST_ATTR L01,#0a [TRUE] L0019
JE G4d,#0a [FALSE] L0015
PRINT "You are unable to climb via "
CALL_2N R0290 (L01)
PRINT_RET "."
L0015: JE G4d,#0b [FALSE] L0016
PRINT "You are unable to descend via "
CALL_2N R0290 (L01)
PRINT_RET "."
L0016: JE L01,#d8 [FALSE] L0017
PRINT_RET "Are you in Seine? There is a river in between you and
the boat."
L0017: JE L01,#5d [FALSE] L0018
PRINT_RET "You can't, since the windows are in the way."
L0018: PRINT "You can't, since "
CALL_2N R0290 (L01)
PRINT_RET " is in the way."
L0019: JE L01,#44 [FALSE] L0029
STORE L00,#43
GET_CHILD L00 -> L00 [TRUE] L0020
L0020: JE L00,#00 [FALSE] L0021
PRINT_RET "You can't go that way."
L0021: JE L00,#c2 [FALSE] L0022
PRINT_RET "You are unable to enter the picture. It isn't very
realistic, more a stylised figure-eight."
L0022: PRINT "You walk confidently into the south wall...
"
STORE L00,#43
GET_CHILD L00 -> L00 [TRUE] L0023
L0023: TEST_ATTR L00,#19 [FALSE] L0024
PRINT_RET "But are unable to enter the scene for a second time."
L0024: JE L00,#d2 [FALSE] L0025
PRINT "
And find yourself in a golden cornfield on a sunny afternoon. You have just
time to admire the ears of wheat before the scythe of the Grim Reaper cuts your
soul from your body.
"
CALL_2N R0188 (L00)
RTRUE
L0025: JE L00,#d4 [FALSE] L0026
PRINT "
You are underwater, in the wreck of a ship, surrounded by the skeletons of its
former crew, whom you abruptly join as your air runs out.
"
CALL_2N R0188 (L00)
RTRUE
L0026: JE L00,#d3 [FALSE] L0027
PRINT "
And find yourself stepping off a cliff. All is well for a moment, and then like
a cartoon character you notice there is no ground beneath you and you plummet
to a stony death far below.
"
CALL_2N R0188 (L00)
RTRUE
L0027: SET_ATTR L00,#19
STORE G06,#04
JE L00,#ad [FALSE] L0028
STORE G06,#06
L0028: JE L00,#0131 [FALSE] L0029
STORE G06,#0b
L0029: JE L01,#8e [FALSE] L0031
JE L03,#96 [FALSE] L0030
PRINT_RET "The garden roller will never fit."
L0030: STORE G06,#01
L0031: JE L01,#6f [FALSE] L0032
STORE G06,#05
PRINT "Your eyes blink with the sunlight as you emerge.
"
L0032: GET_PROP L01,#13 -> L01
JE L01,#00 [FALSE] L0033
PRINT "You can't, since "
CALL_2N R0290 (L01)
PRINT_RET " leads nowhere."
L0033: JE L03,#00 [FALSE] L0034
REMOVE_OBJ G03
INSERT_OBJ G03,L01
L0034: JE L03,#00 [TRUE] L0040
JE G4d,#0b [FALSE] L0035
PRINT_RET "It won't go that way."
L0035: JE G4d,#0a [FALSE] L0036
PRINT_RET "It won't go that way."
L0036: JE L03,#96 [FALSE] L0039
JE L01,#91 [FALSE] L0037
PRINT_RET "Philistine! How dare you drive a garden roller all
over a Roman mosaic."
L0037: JE L01,#90 [FALSE] L0038
PRINT "Crunch! The garden roller ran into something there.
"
SET_ATTR "Contraption ",#00
CALL_VN R0150 (#05,#016b)
SET_ATTR "Lawn Ornaments",#19
L0038: GET_PARENT " " -> -(SP)
JE (SP)+,L01 [FALSE] L0039
TEST_ATTR " ",#16 [FALSE] L0039
PRINT "Oh dear. The medicine bottle, which you negligently
left lying in the path of the roller, seems to have been cracked.
"
CLEAR_ATTR " ",#16
SET_ATTR " ",#0a
CALL_1N R0030
L0039: REMOVE_OBJ L03
INSERT_OBJ L03,L01
L0040: CALL_2S R0039 (L01) -> L02
JE L02,#00 [TRUE] L0041
STORE G00,L01
STORE G04,#01
L0041: JE L02,#00 [FALSE] L0046
JE G00,#0c [FALSE] L0045
STORE G05,#01
JE G06,#01 [TRUE] L0042
PRINT_RET "As you step falteringly through the darkness, cowardly
but evil creatures devour you whole!"
L0042: STORE G05,#03
PRINT "As you unwisely blunder about in the dark, you "
JE L01,#58 [FALSE] L0043
PRINT_RET "slip down a side passage of the chimney, further and
further, blindly landing in a cloud of soot in the fireplace of the lounge
downstairs. Fortunately your family is on hand to clean you up and put you back
to work packing."
L0043: JL L01,#6c [TRUE] L0044
PRINT_RET "miss your footing, trip over and bang your head... Some
time later you wake up in hospital, very confused and not on holiday.
Fortunately Aunt Jemima comes to visit you every afternoon with plenty of
things for you to do..."
L0044: PRINT_RET "put a foot wrong and crash through a thin plaster roof
into one of the upstairs bedrooms, happily landing on the bed. In later years
it becomes a family joke that you demolished half the house for a tatty old
tourist map."
L0045: STORE G00,#0c
STORE G04,#00
L0046: JE G38,#01 [FALSE] L0047
GET_PARENT G03 -> -(SP)
INSERT_OBJ "Austin",(SP)+
STORE G38,#00
L0047: JE G00,#01c1 [FALSE] L0054
L0048: GET_CHILD "Lost inside the Palace" -> -(SP) [TRUE] L0049
L0049: JE (SP)+,#00 [TRUE] L0051
GET_CHILD "Lost inside the Palace" -> -(SP) [TRUE] L0050
L0050: REMOVE_OBJ (SP)+
JUMP L0048
L0051: INSERT_OBJ "slave","Lost inside the Palace"
INSERT_OBJ G03,"Lost inside the Palace"
STORE G3b,G3a
STORE G3a,G39
STORE G39,G4d
CLEAR_ATTR "Lost inside the Palace",#19
JE G3b,#06 [FALSE] L0052
JE G3a,#04 [FALSE] L0052
JE G39,#03 [FALSE] L0052
SET_ATTR "Lost inside the Palace",#19
L0052: JE G39,#03 [FALSE] L0053
JE G3a,#03 [FALSE] L0053
STORE G00,#01c0
INSERT_OBJ G03,G00
L0053: INC G3c
JE G3c,#02 [FALSE] L0054
CALL_2N R0041 (#2e)
L0054: CALL_1S R0028 -> -(SP)
JE #01,(SP)+ [FALSE] L0055
RTRUE
L0055: JE G06,#08 [FALSE] L0057
JE G00,#8c [FALSE] L0056
CALL_1N R0198
RFALSE
L0056: JE G4d,#04,#05 [FALSE] L0057
PRINT "You pass uncomfortably straight through the hide wall.
"
L0057: CALL_2N R0198 (#01)
RTRUE
Routine R0195, 0 locals
Action routine for:
"brief"
STORE G20,#01
PRINT_RET ""Curses" is now in its normal "brief" printing mode,
which gives long descriptions of places never before visited and short
descriptions otherwise."
Routine R0196, 0 locals
Action routine for:
"long"
STORE G20,#02
PRINT_RET ""Curses" is now in its "verbose" mode, which always
gives long descriptions of locations (even places you've been before)."
Routine R0197, 0 locals
Action routine for:
"short"
STORE G20,#03
PRINT_RET ""Curses" is now in its "superbrief" mode, which always
gives short descriptions of locations (even places you've never been before)."
Routine R0198, 7 locals
Action routine for:
"l"
STORE L06,G00
NEW_LINE
JE G2a,#01 [FALSE] L0001
SET_TEXT_STYLE BOLDFACE
L0001: PRINT_OBJ G00
JE G2a,#01 [FALSE] L0002
SET_TEXT_STYLE ROMAN
L0002: GET_PARENT G03 -> L01
JE G00,#0c [TRUE] L0010
JE L01,G00 [TRUE] L0003
PRINT " (in the "
PRINT_OBJ L01
PRINT ")"
STORE L06,L01
L0003: JE L01,#0149 [FALSE] L0010
JE G34,#00 [FALSE] L0004
JE G35,#00 [TRUE] L0010
L0004: PRINT " ("
JE G34,#00 [TRUE] L0007
CALL_2N R0073 (G34)
JG G34,#00 [FALSE] L0005
PRINT " east"
JUMP L0006
L0005: PRINT " west"
L0006: JE G35,#00 [TRUE] L0007
PRINT " and "
L0007: JE G35,#00 [TRUE] L0009
CALL_2N R0073 (G35)
JG G35,#00 [FALSE] L0008
PRINT " north"
JUMP L0009
L0008: PRINT " south"
L0009: PRINT " of the peg)"
L0010: NEW_LINE
GET_PROP G00,#1b -> L02
JE L02,#01 [FALSE] L0011
GET_PARENT " " -> -(SP)
JE (SP)+,G00 [TRUE] L0011
CALL_1N R0151
L0011: GET_PROP G00,#1c -> L02
JE L02,#00 [TRUE] L0012
STORE G06,L02
L0012: JE L00,#01 [TRUE] L0013
JUMP L0016
L0013: JE G20,#02 [FALSE] L0014
JUMP L0016
L0014: JE G20,#03 [FALSE] L0015
JUMP L0017
L0015: TEST_ATTR G00,#11 [FALSE] L0016
JE L00,#01 [FALSE] L0016
JUMP L0017
L0016: GET_PROP G00,#02 -> L01
PRINT_PADDR L01
NEW_LINE
L0017: TEST_ATTR G00,#11 [TRUE] L0018
SET_ATTR G00,#11
TEST_ATTR G00,#1e [FALSE] L0018
ADD G01,#05 -> G01
ADD G15,#05 -> G15
L0018: GET_CHILD L06 -> L04 [TRUE] L0019
L0019: STORE L03,#00
L0020: JE L04,#00 [TRUE] L0026
TEST_ATTR L04,#01 [TRUE] L0024
TEST_ATTR L04,#0e [TRUE] L0024
SET_ATTR L04,#0c
INC L03
TEST_ATTR L04,#06 [TRUE] L0024
GET_PROP L04,#04 -> L02
JE L04,#82 [FALSE] L0021
TEST_ATTR "antiquated wireless",#19 [FALSE] L0021
STORE L02,S1007
L0021: TEST_ATTR L04,#07 [FALSE] L0022
TEST_ATTR L04,#0a [TRUE] L0022
GET_PROP L04,#14 -> L02
L0022: TEST_ATTR L04,#17 [FALSE] L0023
TEST_ATTR L04,#18 [TRUE] L0023
GET_PROP L04,#14 -> L02
L0023: JE L02,#00 [TRUE] L0024
NEW_LINE
PRINT_PADDR L02
NEW_LINE
STORE L05,#01
CLEAR_ATTR L04,#0c
DEC L03
L0024: GET_SIBLING L04 -> L04 [TRUE] L0025
L0025: JUMP L0020
L0026: JE L03,#00 [FALSE] L0027
JUMP L0037
L0027: NEW_LINE
JE L06,G00 [TRUE] L0028
PRINT "In the "
PRINT_OBJ L06
PRINT " you"
L0028: JE L06,G00 [FALSE] L0029
PRINT "You"
L0029: PRINT " can "
JE L05,#01 [FALSE] L0030
PRINT "also "
L0030: PRINT "see "
STORE L01,#00
GET_CHILD L06 -> L04 [TRUE] L0031
L0031: JE L04,#00 [TRUE] L0035
TEST_ATTR L04,#0c [FALSE] L0033
ADD L01,#01 -> L01
CALL_VN R0200 (L04,#01)
SUB L03,#01 -> -(SP)
JE L01,(SP)+ [FALSE] L0032
PRINT " and "
L0032: SUB L03,#01 -> -(SP)
JL L01,(SP)+ [FALSE] L0033
PRINT ", "
L0033: GET_SIBLING L04 -> L04 [TRUE] L0034
L0034: JUMP L0031
L0035: JE L06,G00 [TRUE] L0036
PRINT ".
"
L0036: JE L06,G00 [FALSE] L0037
PRINT " here.
"
L0037: STORE G4c,#17
JE G00,#ec [FALSE] L0038
STORE G73,#ed
TEST_ATTR "Lighthouse",#11 [FALSE] L0038
TEST_ATTR "Lighthouse",#19 [TRUE] L0038
SET_ATTR "Lighthouse",#19
PRINT "
You can just make out the Pharos atop the cliffs. But it seems to be earlier,
nearer dawn, than your last visit.
"
L0038: JE G00,#fc [FALSE] L0039
TEST_ATTR "Sea Shore",#11 [FALSE] L0039
TEST_ATTR "Sea Shore",#19 [TRUE] L0039
SET_ATTR "Sea Shore",#19
PRINT "
The cliffs below are familiar, but it's a little later in the day than your
arrival on the sea shore.
"
L0039: JE G00,#83 [FALSE] L0040
STORE G73,#85
L0040: JE G00,#cd [FALSE] L0041
STORE G73,#d1
L0041: JE G00,#dc [FALSE] L0042
STORE G72,#dd
L0042: JE G00,#53 [FALSE] L0043
STORE G72,#55
L0043: JE G00,#d9 [FALSE] L0044
STORE G72,#da
L0044: JE G00,#f9 [FALSE] L0045
STORE G72,#fb
L0045: JE G00,#0117 [FALSE] L0046
STORE G72,#0119
L0046: JE G00,#011f [FALSE] L0047
STORE G72,#0120
L0047: JE G00,#0121 [FALSE] L0048
STORE G73,#0122
L0048: JE G00,#0162 [FALSE] L0049
STORE G73,#0163
L0049: JE G00,#0153 [FALSE] L0050
STORE G72,#0154
L0050: JE G00,#01c5 [FALSE] L0051
STORE G72,#01c6
L0051: JE G00,#0145 [FALSE] L0052
STORE G72,#0148
L0052: JE G00,#0168 [FALSE] L0053
STORE G73,#016b
L0053: JE G00,#016c [FALSE] L0054
STORE G72,#016d
L0054: JE G00,#0192 [FALSE] L0055
STORE G73,#0195
L0055: JE G00,#01b7 [FALSE] L0056
STORE G72,#01b9
L0056: JE G00,#01bc [FALSE] L0057
STORE G72,#01bd
L0057: JE G00,#01c1 [FALSE] L0058
STORE G72,#01c2
L0058: CALL_1S R0028 -> -(SP)
JE #01,(SP)+ [FALSE] L0059
RTRUE
L0059: RTRUE
Routine R0199, 1 local
Action routine for:
"l at NOUN"
"check NOUN"
JE G00,#0c [FALSE] L0001
PRINT_RET "Darkness, noun. An absence of light to see by."
L0001: JE G4d,#23 [FALSE] L0002
PRINT_RET "As good-looking as ever."
L0002: TEST_ATTR G4d,#1c [FALSE] L0003
CALL_1N R0286
RFALSE
L0003: TEST_ATTR G4d,#20 [FALSE] L0004
PRINT_RET "A featureless mahogany rod, whose purpose is oblique.
Well... almost featureless; there is a little silver plaque left blank near one
end."
L0004: JE G4d,#17,#19,#18 [TRUE] L0006
TEST_ATTR G4d,#12 [FALSE] L0006
PRINT "The silver plaque on this mahogany rod proclaims it as
"
CALL_2N R0290 (G4d)
PRINT "."
TEST_ATTR G4d,#14 [FALSE] L0005
PRINT_RET " It is fully charged up."
L0005: NEW_LINE
RTRUE
L0006: TEST_ATTR G4d,#1b [FALSE] L0007
GET_PROP G4d,#13 -> L00
JE L00,#00 [TRUE] L0007
PRINT "A beautifully realistic picture. "
L0007: JE G4d,#03 [FALSE] L0012
JE G00,#42 [FALSE] L0010
TEST_ATTR "slide projector",#18 [FALSE] L0010
GET_CHILD "slide projector" -> L00 [TRUE] L0008
L0008: JE L00,#00 [FALSE] L0009
PRINT_RET "The south wall is lit up by the projector."
L0009: PRINT "The south wall shows "
CALL_2N R0376 (L00)
RFALSE
L0010: JE G00,#49 [FALSE] L0012
TEST_ATTR "secret door",#01 [TRUE] L0012
TEST_ATTR "secret door",#0a [FALSE] L0011
PRINT_RET "There is a secret door in it, standing open."
JUMP L0012
L0011: PRINT_RET "There is a partly concealed secret door in it, which
would be easy to open."
L0012: JE G4d,#3b [FALSE] L0014
GET_CHILD "photographer's flash" -> -(SP) [TRUE] L0013
L0013: JE (SP)+,#00 [TRUE] L0014
CALL_2N R0286 (#3b)
RFALSE
L0014: GET_PROP G4d,#02 -> L00
JE L00,#00 [FALSE] L0016
TEST_ATTR G4d,#08 [FALSE] L0015
CALL_1N R0286
RFALSE
L0015: PRINT "You see nothing special about "
CALL_2N R0290 (G4d)
PRINT_RET "."
L0016: PRINT_PADDR L00
NEW_LINE
TEST_ATTR G4d,#17 [FALSE] L0018
PRINT "It is currently switched "
TEST_ATTR G4d,#18 [FALSE] L0017
PRINT "on.
"
L0017: TEST_ATTR G4d,#18 [TRUE] L0018
PRINT "off.
"
L0018: CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0019
RTRUE
L0019: RTRUE
Routine R0200, 7 locals
JE L01,#02 [TRUE] L0001
CALL_2N R0289 (L00)
L0001: JE L01,#02 [FALSE] L0002
CALL_2N R0290 (L00)
L0002: TEST_ATTR L00,#00 [FALSE] L0003
PRINT " (providing light)"
L0003: TEST_ATTR L00,#02 [FALSE] L0004
PRINT " (being worn)"
L0004: TEST_ATTR L00,#14 [FALSE] L0005
PRINT " (charged)"
L0005: JE L00,#86 [FALSE] L0009
GET_CHILD G03 -> L04 [TRUE] L0006
L0006: JE L04,#00 [TRUE] L0009
TEST_ATTR L04,#13 [FALSE] L0007
PRINT " (which rustles as if with a magical wind)"
JUMP L0009
L0007: GET_SIBLING L04 -> L04 [TRUE] L0008
L0008: JUMP L0006
L0009: JE L00,#25 [FALSE] L0010
TEST_ATTR L00,#0a [TRUE] L0010
JUMP L0026
L0010: TEST_ATTR L00,#08 [FALSE] L0026
JE L01,#02 [TRUE] L0011
PRINT " (which is "
L0011: JE L01,#02 [FALSE] L0012
PRINT ", which is "
L0012: TEST_ATTR L00,#0a [TRUE] L0013
PRINT "closed"
TEST_ATTR L00,#09 [FALSE] L0013
JUMP L0025
L0013: TEST_ATTR L00,#0a [FALSE] L0014
PRINT "open"
L0014: GET_CHILD L00 -> L02 [TRUE] L0015
L0015: JE L02,#00 [FALSE] L0016
PRINT " but empty"
JUMP L0025
L0016: JE L01,#00 [FALSE] L0017
STORE L06,#01
JUMP L0025
L0017: PRINT " and contains "
STORE L05,#00
STORE L03,L02
L0018: JE L03,#00 [TRUE] L0020
GET_SIBLING L03 -> L03 [TRUE] L0019
L0019: INC L05
JUMP L0018
L0020: STORE L04,#00
L0021: JE L02,#00 [TRUE] L0025
INC L04
CALL_VN R0200 (L02,#01)
SUB L05,#01 -> -(SP)
JE L04,(SP)+ [FALSE] L0022
PRINT " and "
L0022: SUB L05,#01 -> -(SP)
JL L04,(SP)+ [FALSE] L0023
PRINT ", "
L0023: GET_SIBLING L02 -> L02 [TRUE] L0024
L0024: JUMP L0021
L0025: JE L01,#02 [TRUE] L0026
PRINT ")"
L0026: RET L06
Routine R0201, 1 local
Action routine for:
"exhibit NOUN to CREATURE"
JE G4e,#0120 [FALSE] L0007
CALL_1S R0293 -> -(SP)
JE (SP)+,#00 [FALSE] L0006
PRINT "The demon glances lazily at "
CALL_2N R0290 (G4d)
PRINT " and rouses himself to say: ""
GET_PROP G4d,#19 -> L00
JE L00,#ffff [FALSE] L0003
GET_PROP G4d,#1a -> -(SP)
JE (SP)+,#ffff [TRUE] L0001
PRINT "I know about that, but my counterpart doesn't."
JUMP L0002
L0001: PRINT "I know just what that's for."
L0002: JUMP L0004
L0003: PRINT_PADDR L00
CLEAR_ATTR "demon",#19
L0004: TEST_ATTR G4d,#1a [FALSE] L0005
REMOVE_OBJ G4d
PRINT_RET " Mmm... delicious!" Sloth and gluttony... two deadly
sins in one minute. His boss will be pleased."
L0005: PRINT_RET """
L0006: RFALSE
L0007: JE G4e,#0122 [FALSE] L0013
CALL_1S R0294 -> -(SP)
JE (SP)+,#00 [FALSE] L0012
PRINT "The angel looks conscientiously at "
CALL_2N R0290 (G4d)
PRINT " and rouses herself to say: ""
GET_PROP G4d,#1a -> L00
JE L00,#ffff [FALSE] L0010
GET_PROP G4d,#19 -> -(SP)
JE (SP)+,#ffff [TRUE] L0008
PRINT "I suppose you could ask, um, that tailed gentleman."
JUMP L0009
L0008: PRINT "I'm afraid I'm don't know much about "
CALL_2N R0290 (G4d)
PRINT "."
L0009: JUMP L0011
L0010: PRINT_PADDR L00
CLEAR_ATTR "angel",#19
L0011: PRINT_RET ""."
L0012: RFALSE
L0013: JE G4e,#0179 [FALSE] L0014
CALL_1N R0203
RTRUE
L0014: JE G4e,#0148 [FALSE] L0015
JE G4d,#016a [FALSE] L0015
PRINT_RET "The squirrel finds them of great interest."
L0015: CALL_2N R0291 (G4e)
PRINT_RET " is unimpressed."
Routine R0202, 1 local
Action routine for:
"feed CREATURE HELD"
STORE L00,G4d
STORE G4d,G4e
STORE G4e,L00
STORE G4c,#0f
CALL_1N R0203
RTRUE
Routine R0203, 1 local
Action routine for:
"feed HELD to CREATURE"
"feed over HELD to CREATURE"
JE G4e,#0120 [FALSE] L0001
CALL_1N R0201
RFALSE
L0001: JE G4e,#0122 [FALSE] L0002
CALL_1N R0201
RFALSE
L0002: JE G4d,#8a [FALSE] L0003
PRINT_RET "Now that really would not be very kind."
L0003: JE G4e,#d1 [FALSE] L0005
JE G4d,#d7 [FALSE] L0004
PRINT_RET "Gratefully she blows her nose but then returns the
handkerchief. You refold it ingeniously."
L0004: PRINT "She looks warily at "
CALL_2N R0290 (G4d)
PRINT_RET "."
L0005: JE G4e,#85 [FALSE] L0011
JE G4d,#32 [FALSE] L0006
STORE L00,#32
REMOVE_OBJ L00
CALL_2N R0040 (#0a)
SET_ATTR "Jemima",#19
PUT_PROP "Jemima",#02,S1008
PRINT_RET "Aunt Jemima pounces on the chocolates, wolfs down a
strawberry cream and persuades you to have an unappetising toffee cracknell.
"Now," she says, "Your turn for a daisy chain!"
You try to look pleased.
"Let's see, the others have had theirs... I have only a few colours left. What
would you like?""
L0006: JE G4d,#27 [FALSE] L0007
PRINT "Jemima grudgingly takes the biscuit and nibbles at it,
but she is still sulking.
"
CALL_1N R0313
REMOVE_OBJ "chocolate biscuit"
RTRUE
L0007: JE G4d,#36 [FALSE] L0008
PRINT_RET "Jemima looks very suspiciously at the pill. "Not just
now, thanks.""
L0008: JE G4d,#35 [FALSE] L0009
TEST_ATTR " ",#16 [FALSE] L0009
REMOVE_OBJ "red tablet"
CLEAR_ATTR " ",#16
SET_ATTR " ",#0a
PRINT_RET "Jemima takes the bottle absent-mindedly, opens it
without the slightest difficulty and (before you can stop her) swallows the
pill. You'd better hope it wouldn't have been useful anyway.
"I'm always leaving my medicine lying around," she says vaguely as she hands
the bottle back. "I'll forget my head one day.""
L0009: PRINT "A peace offering is a nice idea, but somehow the "
PRINT_OBJ G4d
JE G4d,#31 [FALSE] L0010
PRINT " lacks style... after all, it isn't Christmas.
"
CALL_1N R0313
RTRUE
L0010: PRINT_RET " seems inappropriate."
L0011: JE G4e,#dd [FALSE] L0013
JE G4d,#011e [TRUE] L0012
PRINT_RET ""Ceci n'est pas argent," he explains wearily."
L0012: REMOVE_OBJ G4d
SET_ATTR G4d,#19
PRINT_RET "He takes the money. "Q'est-ce que vous desirez?""
L0013: JE G4e,#55 [FALSE] L0014
CALL_1N R0292
RFALSE
L0014: JE G4e,#ed [FALSE] L0016
TEST_ATTR G4d,#1a [FALSE] L0016
JE G4d,#fa [FALSE] L0015
REMOVE_OBJ G4d
STORE L00,#ee
CLEAR_ATTR L00,#0f
SET_ATTR L00,#06
REMOVE_OBJ L00
INSERT_OBJ L00,G03
PRINT_RET "She smiles as if to say there's not much point watching
her waist-line any more, and hungrily wolfs down her favourite dessert. As a
gesture of thanks, she takes off her amber hairband and hands it you. Quickly
she readopts her noble pose, however, just in case anyone else is looking."
L0015: PRINT_RET "She looks with obvious hunger, but her sense of duty
wins out and she refuses."
L0016: JE G4e,#fb [FALSE] L0017
JE G4d,#f6 [FALSE] L0017
REMOVE_OBJ G4d
SET_ATTR "copper coin",#19
PRINT_RET "The bartender takes the coin wearily, with a "how can
you eat at a time like this?" look."
L0017: JE G4e,#c6 [FALSE] L0020
TEST_ATTR G4d,#1a [FALSE] L0018
REMOVE_OBJ G4d
PRINT "The goat happily munches down "
CALL_2N R0290 (G4d)
PRINT_RET "."
L0018: JE G4d,#35 [FALSE] L0019
CLEAR_ATTR " ",#16
SET_ATTR " ",#0a
CALL_1N R0030
PRINT_RET "The medicine bottle cracks open in the goat's jaws!"
L0019: JE G4d,#86 [FALSE] L0020
PRINT_RET "For heaven's sake, the daisy chain is far too useful
for that."
L0020: JE G4e,#0126 [FALSE] L0024
JE G4d,#6a [FALSE] L0021
CALL_1N R0313
PRINT_RET "Some cats do like the smell of chicken bones, but
Austin doesn't."
L0021: JE G4d,#75 [FALSE] L0022
INSERT_OBJ "robot mouse",G00
PRINT_RET "Austin claws it to the ground, captiously."
L0022: TEST_ATTR G4d,#1a [FALSE] L0023
PRINT_RET "For once, Austin is not really hungry."
L0023: PRINT "Austin is unimpressed with "
CALL_2N R0290 (G4d)
PRINT_RET "."
L0024: JE G4e,#0195 [FALSE] L0025
PRINT_RET "She is staring fixedly at the table, meditating."
L0025: JE G4e,#0148 [FALSE] L0028
TEST_ATTR G4d,#1a [FALSE] L0028
REMOVE_OBJ G4d
JE G4d,#016a [FALSE] L0026
CALL_1N R0089
PRINT_RET "The squirrel is extremely pleased, and devours the nuts
delightedly. You have an uncomfortable feeling of having been suckered."
L0026: PRINT "Grateful for any food he can get, however unsuitable,
the squirrel eagerly consumes "
JE G4d,#fa [FALSE] L0027
PRINT "the "
L0027: CALL_2N R0290 (G4d)
PRINT_RET ". He does of course feel no obligation towards you at
all as a result, so don't expect any favours."
L0028: JE G4e,#0179 [FALSE] L0033
JE G4d,#9b [FALSE] L0029
INSERT_OBJ "marble rose","adamantine knight"
PRINT_RET "The knight is exceedingly pleased, and takes the
flower."
L0029: JE G4d,#0197 [FALSE] L0032
GET_PARENT "marble rose" -> -(SP)
JE (SP)+,#0179 [TRUE] L0030
PRINT_RET "The knight looks sadly at the picture."
L0030: JE G00,#017a [TRUE] L0031
PRINT_RET "The knight looks at the picture sadly, unable to see
its immediate relevance."
L0031: INSERT_OBJ "marble rose","statue of Diana"
SET_ATTR "adamantine knight",#19
PUT_PROP "statue of Diana",#04,S1009
CALL_2N R0040 (#2b)
PRINT_RET "The knight, catching on, places the marble flower in
Diana's hair, high up beyond your reach. Afterward, he bows to you gravely. But
there is a little sadness in his eye as he turns away from her."
L0032: PRINT_RET "The knight has forsworn earthly things in the service
of Diana."
L0033: JE G4e,#01b9,#01bd [FALSE] L0049
JE G4e,#01b9 [FALSE] L0034
JE G4d,#01af [TRUE] L0035
L0034: JE G4e,#01bd [FALSE] L0036
JE G4d,#01b0 [FALSE] L0036
L0035: PRINT_RET "He takes the tube, sees the letter on it, looks
exasperated, clouts you over the head with the tube and pushes it back into
your arms."
L0036: JE G4d,#01af,#01b0 [FALSE] L0048
CALL_2N R0291 (G4e)
PRINT " takes the tube and looks inside"
GET_CHILD G4d -> L00 [TRUE] L0037
L0037: JE L00,#00 [FALSE] L0038
INSERT_OBJ G4d,G00
PRINT_RET " to find it is empty. He looks at you very darkly
indeed but returns to his work, throwing the tube down impatiently."
L0038: JE L00,#01b1,#01b2 [FALSE] L0047
PRINT " to see a scroll, which he pulls out eagerly.
"
JE G4e,#01b9 [FALSE] L0039
JE L00,#01b2 [TRUE] L0040
L0039: JE G4e,#01bd [FALSE] L0044
JE L00,#01b1 [FALSE] L0044
L0040: GET_PARENT "Apollonius" -> -(SP)
GET_PARENT "Callimachus" -> -(SP)
JE (SP)+,(SP)+ [FALSE] L0041
INSERT_OBJ L00,#00
INSERT_OBJ G4d,#00
INSERT_OBJ "purple sash",G00
INSERT_OBJ "mystic scroll",G00
INSERT_OBJ "Apollonius",G00
PUT_PROP "Apollonius",#04,S1010
CALL_2N R0040 (#26)
PRINT_RET "One look is enough. He throws a vicious punch, and the
librarians begin a savage bare-knuckled fist fight.
This, shall we say, rather petty practical joke of yours does seem to have had
one interesting consequence, though."
L0041: INSERT_OBJ L00,#00
INSERT_OBJ G4d,#00
PRINT ""Arrghhhieee!" he says (untranslatably), boiling over
with rage. He then curses repeatedly, but the only word you can make out is ""
JE G4e,#01b9 [FALSE] L0042
PRINT "Apollonius"
GET_PARENT "Apollonius" -> -(SP)
INSERT_OBJ G4e,(SP)+
JUMP L0043
L0042: PRINT "Callimachus"
GET_PARENT "Callimachus" -> -(SP)
INSERT_OBJ G4e,(SP)+
L0043: SET_ATTR "Callimachus",#01
PUT_PROP "Apollonius",#04,S1011
PRINT_RET "". He pushes you out of his way and stomps off."
L0044: PRINT ""Ahhhh..." he says (untranslatably) as he reads. "
JE G4d,#01b9 [FALSE] L0045
PRINT "Eventually, after a very long wait, "
JUMP L0046
L0045: PRINT "But soon "
L0046: INSERT_OBJ G4d,G00
PRINT_RET "he finishes, puts the scroll back into the tube with
the habit of a trained librarian, and drops it absentmindedly on the floor."
L0047: PRINT " to find "
CALL_2N R0289 (L00)
PRINT ", which, to say the least, comes as a surprise. Such a
fuss is kicked up that you are quickly thrown out into the street.
"
INSERT_OBJ G03,"Outside the Royal Museum"
STORE G00,#01ab
CALL_2N R0198 (#01)
RFALSE
L0048: PRINT_RET "How could you bribe such disinterested men of learning
as the librarians?"
L0049: JE G4e,#016d [FALSE] L0050
JE G4d,#016f [FALSE] L0050
PRINT_RET "Evans looks sadly at the mascot. But it is tarnished
now, you have spoilt it. Your guilt increases further."
L0050: CALL_2N R0291 (G4e)
PRINT_RET " doesn't seem interested."
Routine R0204, 0 locals
Action routine for:
"milk NOUN"
JE G4d,#c6,#f1 [FALSE] L0001
PRINT_RET "Pour encourager les udders... But milking goats is no
job for an amateur."
L0001: PRINT_RET "What?"
Routine R0205, 1 local
Action routine for:
"open NOUN with HELD"
"unlock NOUN with HELD"
TEST_ATTR G4d,#15 [TRUE] L0001
PRINT_RET "I can't see how to unlock that."
L0001: TEST_ATTR G4d,#16 [TRUE] L0002
PRINT_RET "It is in fact unlocked now."
L0002: GET_PROP G4d,#16 -> L00
JE L00,G4e [TRUE] L0003
PRINT_RET "That doesn't seem to fit the lock."
L0003: CLEAR_ATTR G4d,#16
CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0004
RTRUE
L0004: PRINT "You unlock the "
PRINT_OBJ G4d
PRINT ".
"
RTRUE
Routine R0206, 1 local
Action routine for:
"lock NOUN with HELD"
TEST_ATTR G4d,#15 [TRUE] L0001
PRINT_RET "I can't see how to lock that."
L0001: TEST_ATTR G4d,#16 [FALSE] L0002
PRINT_RET "It is in fact locked now."
L0002: TEST_ATTR G4d,#0a [FALSE] L0003
PRINT_RET "First you'll have to close it."
L0003: GET_PROP G4d,#16 -> L00
JE L00,G4e [TRUE] L0004
PRINT_RET "That doesn't seem to fit the lock."
L0004: SET_ATTR G4d,#16
CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0005
RTRUE
L0005: PRINT "You lock the "
PRINT_OBJ G4d
PRINT ".
"
RTRUE
Routine R0207, 0 locals
Action routine for:
"rotate NOUN on"
"rotate on NOUN"
"flip NOUN"
"flip NOUN on"
"flip on NOUN"
JE G4d,#25 [FALSE] L0001
PRINT_RET "There's no switch, just a battery compartment."
L0001: TEST_ATTR G4d,#17 [TRUE] L0002
PRINT_RET "That's not something you can switch."
L0002: TEST_ATTR G4d,#18 [FALSE] L0003
PRINT_RET "It's already on."
L0003: SET_ATTR G4d,#18
CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0004
RTRUE
L0004: PRINT "You switch the "
PRINT_OBJ G4d
PRINT " on.
"
RTRUE
Routine R0208, 0 locals
Action routine for:
"rotate NOUN off"
"rotate off NOUN"
"flip NOUN off"
"flip off NOUN"
JE G4d,#25 [FALSE] L0001
PRINT_RET "There's no switch, just a battery compartment."
L0001: TEST_ATTR G4d,#17 [TRUE] L0002
PRINT_RET "That's not something you can switch."
L0002: TEST_ATTR G4d,#18 [TRUE] L0003
PRINT_RET "It's already off."
L0003: CLEAR_ATTR G4d,#18
CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0004
RTRUE
L0004: PRINT "You switch the "
PRINT_OBJ G4d
PRINT " off.
"
RTRUE
Routine R0209, 0 locals
Action routine for:
"knock on NOUN"
"knock at NOUN"
TEST_ATTR G4d,#07 [TRUE] L0001
PRINT "(If you insist.) "
L0001: PRINT_RET "There is no reply."
Routine R0210, 0 locals
Action routine for:
"talk"
"talk to CREATURE"
PRINT_RET "[See the instructions for how to address people in the
game.]"
Routine R0211, 0 locals
Action routine for:
"open NOUN"
JE G4d,#50 [FALSE] L0001
PRINT_RET "How, exactly?"
L0001: JE G4d,#cf [FALSE] L0002
PRINT_RET "It seems immovable, as if made of solid iron."
L0002: JE G4d,#5d [FALSE] L0003
PRINT_RET "It's old and gummed up somehow."
L0003: TEST_ATTR G4d,#0b [TRUE] L0004
PRINT_RET "That's not something you can open."
L0004: TEST_ATTR G4d,#16 [FALSE] L0005
PRINT_RET "It seems to be locked."
L0005: TEST_ATTR G4d,#0a [FALSE] L0006
PRINT_RET "It's already open."
L0006: SET_ATTR G4d,#0a
CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0007
RTRUE
L0007: PRINT "You open the "
PRINT_OBJ G4d
PRINT ".
"
TEST_ATTR G4d,#08 [FALSE] L0008
NEW_LINE
CALL_1N R0286
L0008: RTRUE
Routine R0212, 0 locals
Action routine for:
"close NOUN"
JE G4d,#50 [FALSE] L0001
PRINT_RET "How, exactly?"
L0001: TEST_ATTR G4d,#0b [TRUE] L0002
PRINT_RET "That's not something you can close."
L0002: TEST_ATTR G4d,#0a [TRUE] L0003
PRINT_RET "It's already closed."
L0003: CLEAR_ATTR G4d,#0a
CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0004
RTRUE
L0004: PRINT "You close the "
PRINT_OBJ G4d
PRINT ".
"
RTRUE
Routine R0213, 0 locals
Action routine for:
"get off HELD"
"extract HELD"
"disrobe HELD"
TEST_ATTR G4d,#02 [TRUE] L0001
PRINT_RET "You're not wearing that."
L0001: CLEAR_ATTR G4d,#02
PRINT "You take off the "
PRINT_OBJ G4d
PRINT ".
"
RTRUE
Routine R0214, 1 local
Action routine for:
"assume HELD"
"hang on HELD"
TEST_ATTR G4d,#03 [TRUE] L0001
PRINT_RET "You can't wear that!"
L0001: GET_PARENT G4d -> L00
JE L00,G03 [TRUE] L0002
PRINT_RET "You're not holding that!"
L0002: TEST_ATTR G4d,#02 [FALSE] L0003
PRINT_RET "You're already wearing that!"
L0003: SET_ATTR G4d,#02
CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0004
RTRUE
L0004: PRINT "You put on the "
PRINT_OBJ G4d
PRINT ".
"
RTRUE
Routine R0215, 2 locals
Action routine for:
"objects"
PRINT "Objects you have handled:
"
STORE L00,#01
L0001: JG L00,#01d2 [TRUE] L0011
TEST_ATTR L00,#06 [FALSE] L0010
CALL_2N R0290 (L00)
GET_PARENT L00 -> L01
JE L01,G03 [FALSE] L0004
TEST_ATTR L01,#02 [FALSE] L0002
PRINT " (worn)"
JUMP L0003
L0002: PRINT " (held)"
L0003: JUMP L0009
L0004: TEST_ATTR L01,#04 [FALSE] L0005
PRINT " (given away)"
JUMP L0009
L0005: TEST_ATTR L01,#11 [FALSE] L0006
PRINT " (in "
PRINT_OBJ L01
PRINT ")"
JUMP L0009
L0006: TEST_ATTR L01,#0d [FALSE] L0007
PRINT " (in "
CALL_2N R0290 (L01)
PRINT ")"
JUMP L0009
L0007: TEST_ATTR L01,#08 [FALSE] L0008
PRINT " (inside "
PRINT_OBJ L01
PRINT ")"
JUMP L0009
L0008: PRINT " (lost)"
L0009: NEW_LINE
L0010: INC L00
JUMP L0001
L0011: RTRUE
Routine R0216, 3 locals
Action routine for:
"places"
PRINT "You have visited: "
STORE L00,#1d
STORE L01,#00
L0001: JL L00,#01d2 [FALSE] L0003
TEST_ATTR L00,#11 [FALSE] L0002
INC L01
L0002: INC L00
JUMP L0001
L0003: STORE L00,#1d
STORE L02,#00
L0004: JL L00,#01d2 [FALSE] L0008
TEST_ATTR L00,#11 [FALSE] L0007
PRINT_OBJ L00
INC L02
JE L02,L01 [FALSE] L0005
PRINT_RET "."
L0005: SUB L01,#01 -> -(SP)
JE (SP)+,L02 [FALSE] L0006
PRINT " and "
L0006: SUB L01,#01 -> -(SP)
JG (SP)+,L02 [FALSE] L0007
PRINT ", "
L0007: INC L00
JUMP L0004
L0008: RTRUE
Routine R0217, 0 locals
Action routine for:
"y"
"no"
PRINT_RET "That was a rhetorical question."
Routine R0218, 0 locals
Action routine for:
"plover"
PRINT_RET "For a moment you can almost hear a hoarse voice say
something to you. But it passes."
Routine R0219, 0 locals
Action routine for:
"answer lagach to NOUN"
"lagach"
PRINT_RET "You feel inexplicably powerful, but nothing happens.
Perhaps you should have addressed yourself more precisely."
Routine R0220, 3 locals
JE G4c,#4b [TRUE] L0001
PRINT_RET "There is, unsurprisingly, no reply."
L0001: STORE L00,#00
JE G00,#fe [FALSE] L0002
STORE L00,#01
L0002: JE G00,#91 [FALSE] L0003
STORE L00,#02
L0003: JE G00,#9c [FALSE] L0004
STORE L00,#03
L0004: JE G00,#cc [FALSE] L0005
STORE L00,#04
L0005: JE G00,#bb [FALSE] L0006
STORE L00,#05
L0006: JE G00,#01a9 [FALSE] L0007
STORE L00,#06
L0007: JE G00,#0139 [FALSE] L0008
STORE L00,#07
L0008: JE L00,#00 [FALSE] L0009
PRINT_RET "No reply."
L0009: TEST_ATTR "tourist map of Paris",#06 [FALSE] L0010
PRINT_RET "Nothing happens! Already the druids' magic fades from
the earth, and you cannot help feeling saddened."
L0010: INC L00
JE L00,#08 [FALSE] L0011
STORE L00,#01
L0011: JE L00,#01 [FALSE] L0012
STORE L01,#fe
STORE L02,#04
L0012: JE L00,#02 [FALSE] L0013
STORE L01,#91
STORE L02,#05
L0013: JE L00,#03 [FALSE] L0014
STORE L01,#9c
STORE L02,#09
L0014: JE L00,#04 [FALSE] L0015
STORE L01,#cc
STORE L02,#02
L0015: JE L00,#05 [FALSE] L0016
STORE L01,#bb
STORE L02,#03
L0016: JE L00,#06 [FALSE] L0017
STORE L01,#01a9
STORE L02,#0b
L0017: JE L00,#07 [FALSE] L0018
STORE L01,#0139
STORE L02,#01
L0018: TEST_ATTR L01,#11 [TRUE] L0019
JUMP L0010
L0019: JE L01,G00 [FALSE] L0020
PRINT_RET "A swirl of wind almost bowls you over, but nothing else
happens."
L0020: REMOVE_OBJ G03
INSERT_OBJ G03,L01
STORE G00,L01
STORE G06,L02
PRINT "A swirl of wind snakes out from "
CALL_2N R0290 (G4b)
PRINT " and whisks you away to...
"
CALL_1N R0198
RTRUE
Routine R0221, 0 locals
Action routine for:
"shantih"
"shantih SPECIAL"
"shantih SPECIAL SPECIAL"
PRINT_RET "For a moment you can almost hear thunder, as though it
were saying something. But the moment passes."
Routine R0222, 0 locals
Action routine for:
"burn NOUN"
PRINT_RET "In this game, arson is (usually) forbidden."
Routine R0223, 0 locals
Action routine for:
"pray"
PRINT_RET "The heavenly host can be quite helpful in this game,
but you'll have to ask them directly."
Routine R0224, 0 locals
Action routine for:
"awake"
"awake up"
JE G06,#08 [FALSE] L0001
PRINT_RET "You are unable to shake off the dream."
L0001: JE G06,#0a [FALSE] L0002
PRINT_RET "It doesn't seem to be that easy."
L0002: PRINT_RET "The dreadful truth is, this is not a dream."
Routine R0225, 0 locals
Action routine for:
"awake CREATURE"
"awake up CREATURE"
JE G4d,#0154 [FALSE] L0001
TEST_ATTR "Homer",#19 [TRUE] L0001
SET_ATTR "Homer",#19
PUT_PROP "Homer",#15,#00
PUT_PROP "Homer",#04,S1012
PRINT_RET "Homer wakes up, with a start. "I suppose you want the
syrinx," he grumbles, "they always do. There are three questions you must
answer wisely. The usual deal."
(He seems to be under an enchantment and able to speak modern English, or at
least American.)
"First: who is the brother of Menelaus?""
L0001: JE G4d,#0119 [TRUE] L0002
PRINT_RET "That seems rather unnecessary."
L0002: PRINT_RET "The spy is too deeply unconscious."
Routine R0226, 0 locals
Action routine for:
"embrace CREATURE"
JE G4d,#85 [FALSE] L0001
PRINT "She is slightly mollified, but only slightly.
"
CALL_1N R0313
RTRUE
L0001: JE G4d,#ed [FALSE] L0002
PRINT "She evades you deftly, after years of practice with
Greek men.
"
RTRUE
L0002: JE G4d,#d1 [FALSE] L0003
PRINT "She kisses you forcibly. Her mouth tastes of tobacco.
"
RTRUE
L0003: PRINT_RET "Keep your mind on the game."
Routine R0227, 0 locals
Action routine for:
"think"
PRINT_RET "Worth a try, anyway. Why don't you?"
Routine R0228, 1 local
Action routine for:
"smell"
"smell NOUN"
TEST_ATTR "gas mask",#02 [FALSE] L0001
PRINT_RET "You can't smell much with the gas mask on."
L0001: JE G00,#cd [FALSE] L0002
PRINT_RET "You feel briefly incensed."
L0002: JE G00,#01a9 [FALSE] L0003
PRINT_RET "Why do you only ever smell hard in unpleasant places?
The odour is repulsive in a termites-and-honey kind of way."
L0003: JE G00,#a1,#9e,#a0 [FALSE] L0004
PRINT_RET "Ugh."
L0004: JE G00,#a2 [FALSE] L0007
GET_PROP "Catacombs",#15 -> L00
INC L00
PUT_PROP "Catacombs",#15,L00
JE L00,#01 [FALSE] L0005
PRINT_RET "Something like... perhaps, air after a thunderstorm...
but no, you still can't be sure what it is."
L0005: JE L00,#02 [FALSE] L0006
INSERT_OBJ " ","Catacombs"
PUT_PROP "Catacombs",#12,#aa
STORE G26,#01
CALL_2N R0040 (#0e)
PRINT_RET "Ozone! That's what it's called. Funny sort of odour
for a cave - especially since, on investigating further, you find that it's
drifting up from a concealed aluminium staircase."
L0006: PRINT_RET "Definitely ozone."
L0007: PRINT_RET "You smell nothing unexpected."
Routine R0229, 0 locals
Action routine for:
"hear"
"hear NOUN"
"hear to NOUN"
PRINT_RET "You hear nothing unexpected."
Routine R0230, 0 locals
Action routine for:
"taste"
PRINT_RET "You taste nothing unexpected."
Routine R0231, 0 locals
Action routine for:
"diagnose"
PRINT_RET "Hang on a moment... yes, you're still breathing. Keep
it up!"
Routine R0232, 0 locals
Action routine for:
"feel"
PRINT_RET "You feel nothing unexpected."
Routine R0233, 0 locals
Action routine for:
"feel NOUN"
JE G4d,#0126 [FALSE] L0001
PRINT_RET "Austin curls about your foot implacably."
L0001: TEST_ATTR G4d,#04 [FALSE] L0002
PRINT_RET "Keep your hands to yourself!"
L0002: PRINT_RET "You feel nothing unexpected."
Routine R0234, 0 locals
Action routine for:
"dig with HELD"
JE G4d,#013e [TRUE] L0001
PRINT_RET "Not really a suitable implement."
L0001: CALL_1N R0235
RTRUE
Routine R0235, 0 locals
Action routine for:
"dig"
"dig SPECIAL"
GET_PARENT " " -> -(SP)
JE (SP)+,G03 [TRUE] L0001
PRINT_RET "You have nothing really suitable to hand."
L0001: JE G00,#93,#b1 [FALSE] L0002
PRINT_RET "You succeed only in turning the earth further."
L0002: JE G00,#91 [FALSE] L0003
PRINT_RET "Archaeology is not for the amateur!"
L0003: JE G00,#0166 [FALSE] L0004
PRINT_RET "The gravel is thin and lies on concrete."
L0004: JE G00,#98 [FALSE] L0005
PRINT_RET "Surreal!"
L0005: JE G00,#0149 [TRUE] L0006
PRINT_RET "The ground is unsuitable."
L0006: JE G34,#00 [FALSE] L0007
JE G35,#00 [FALSE] L0007
PRINT_RET "You surely don't want to dig here, right in the middle
of such a fine lawn. The peg would fall out, and that would never do."
L0007: PRINT "You dig an energetic little hole in the superb turf"
GET_PARENT "dug hole" -> -(SP)
JE (SP)+,#0149 [FALSE] L0011
PRINT ", filling your last one up with the earth uncovered"
L0008: GET_CHILD "dug hole" -> -(SP) [TRUE] L0009
L0009: JE (SP)+,#00 [TRUE] L0011
GET_CHILD "dug hole" -> -(SP) [TRUE] L0010
L0010: REMOVE_OBJ (SP)+
STORE G83,#02
JUMP L0008
L0011: JE G34,G36 [FALSE] L0012
JE G35,G37 [FALSE] L0012
TEST_ATTR "strongbox",#06 [TRUE] L0012
PRINT ", until your spade bumps into something solid"
INSERT_OBJ "strongbox","dug hole"
CALL_2N R0040 (#23)
JUMP L0013
L0012: JE G83,#01 [FALSE] L0013
STORE G83,#00
PRINT ", failing to find whatever it was you buried"
L0013: INSERT_OBJ "dug hole","Croquet Lawn"
JE G83,#02 [FALSE] L0014
STORE G83,#01
L0014: PRINT_RET "."
Routine R0236, 0 locals
Action routine for:
"beep"
PRINT_RET "Are you feeling quite right?"
Routine R0237, 0 locals
Action routine for:
"dance with CREATURE"
CALL_2N R0291 (G4d)
PRINT_RET " does not wish to dance with you."
Routine R0238, 0 locals
Action routine for:
"chop NOUN"
PRINT_RET "In this game, cutting things up is never helpful."
Routine R0239, 0 locals
Action routine for:
"hop"
JE G00,#98,#b0 [FALSE] L0001
STORE G05,#01
PRINT_RET "You fall and break your neck!"
L0001: JE G00,#52 [FALSE] L0002
PRINT_RET "You're far too cowardly to jump to the balcony from
here, when there must be a perfectly good route from inside the attic
somewhere."
L0002: GET_PARENT "Austin" -> -(SP)
JE G00,(SP)+ [FALSE] L0005
JE G06,#0b [FALSE] L0003
PRINT_RET "Austin is quite unruffled."
L0003: PRINT "For some reason, Austin is startled and springs for his
life "
CALL_2N R0041 (#07)
JE G00,#42 [FALSE] L0004
GET_PARENT "charcoal sketch" -> -(SP)
JE (SP)+,#43 [FALSE] L0004
TEST_ATTR "south wall",#01 [TRUE] L0004
INSERT_OBJ "Austin","Causeway"
CALL_2N R0040 (#24)
PRINT_RET "right up through the south wall and into Alexandria!"
L0004: CALL_2N R0098 (#01)
RFALSE
L0005: PRINT_RET "You jump on the spot, fruitlessly."
Routine R0240, 0 locals
Action routine for:
"hop over NOUN"
PRINT_RET "In this game, it is never useful to jump over things."
Routine R0241, 0 locals
Action routine for:
"add HELD"
"add HELD to NOUN"
"add HELD with NOUN"
PRINT_RET "In this game, it is seldom useful to tie things."
Routine R0242, 0 locals
Action routine for:
"rotate with NOUN"
PRINT_RET "You'll have to be more specific."
Routine R0243, 0 locals
Action routine for:
"rotate NOUN with NOUN"
JE G4e,#6b [TRUE] L0001
CALL_2N R0291 (#6b)
PRINT_RET " is unsuitable for turning things."
L0001: JE G4d,#0d [FALSE] L0002
JE G00,#3f [FALSE] L0002
CALL_VN R0026 (#0d,#00,#3d)
RFALSE
L0002: PRINT "(The wrench seems unnecessary, so you use bare hands.)
"
CALL_VN R0026 (G4d,#00,#3d)
RTRUE
Routine R0244, 0 locals
Action routine for:
"lean HELD against NOUN"
"lean HELD on NOUN"
JE G00,#ae [TRUE] L0001
PRINT_RET "That won't achieve anything very much."
L0001: JE G4e,#0d [TRUE] L0002
PRINT_RET "That isn't in conspicuous need of support."
L0002: JE G4d,#74 [TRUE] L0003
PRINT_RET "That isn't a particularly good support."
L0003: REMOVE_OBJ "old timber spar"
INSERT_OBJ "old timber spar","Folly"
PUT_PROP "old timber spar",#04,S1013
CLEAR_ATTR "old timber spar",#06
PUT_PROP "bean pole",#15,#00
SET_ATTR "old timber spar",#19
CLEAR_ATTR "bean pole",#19
PRINT_RET "You lean the timber prop against the Folly tower,
supporting it. (Better just hope you won't be needing the prop for anything
else!)"
Routine R0245, 1 local
Action routine for:
"lean up NOUN with HELD"
"lean NOUN with HELD"
STORE L00,G4d
STORE G4d,G4e
STORE G4e,L00
CALL_1N R0244
RTRUE
Routine R0246, 2 locals
DEC L00
LOADB G19,L00 -> L01
JE L01,#00 [FALSE] L0001
PRINT ". "
RFALSE
L0001: SUB #41,#01 -> -(SP)
ADD L01,(SP)+ -> L01
PRINT_CHAR L01
PRINT " "
RTRUE
Routine R0247, 0 locals
CALL_1N R0171
PRINT " "
CALL_2N R0246 (#01)
CALL_2N R0246 (#02)
CALL_2N R0246 (#03)
PRINT "
+ +
"
PRINT " "
CALL_2N R0246 (#04)
CALL_2N R0246 (#05)
CALL_2N R0246 (#06)
PRINT "
+ +
"
PRINT " "
CALL_2N R0246 (#07)
CALL_2N R0246 (#08)
CALL_2N R0246 (#09)
PRINT "
+ +
"
PRINT " "
CALL_2N R0246 (#0a)
CALL_2N R0246 (#0b)
CALL_2N R0246 (#0c)
PRINT "
+ +
"
PRINT " "
CALL_2N R0246 (#0d)
CALL_2N R0246 (#0e)
CALL_2N R0246 (#0f)
NEW_LINE
CALL_1N R0172
RTRUE
Routine R0248, 0 locals
CALL_VN R0150 (#04,#0178)
CLEAR_ATTR "Contraption ",#19
RTRUE
Routine R0249, 0 locals
CALL_VN R0150 (#04,#0183)
SET_ATTR "Contraption ",#19
RTRUE
Routine R0250, 2 locals
LOADB G19,#00 -> L00
LOADB G19,#02 -> L01
STOREB G19,#02,L00
STOREB G19,#00,L01
LOADB G19,#03 -> L00
LOADB G19,#05 -> L01
STOREB G19,#05,L00
STOREB G19,#03,L01
LOADB G19,#06 -> L00
LOADB G19,#08 -> L01
STOREB G19,#08,L00
STOREB G19,#06,L01
LOADB G19,#09 -> L00
LOADB G19,#0b -> L01
STOREB G19,#0b,L00
STOREB G19,#09,L01
LOADB G19,#0c -> L00
LOADB G19,#0e -> L01
STOREB G19,#0e,L00
STOREB G19,#0c,L01
RTRUE
Routine R0251, 0 locals
CALL_VN R0150 (#06,#0189)
CALL_VN R0150 (#07,#018b)
CLEAR_ATTR "metal wall",#19
PUT_PROP "Contraption ",#09,#a4
PUT_PROP "Contraption ",#0a,#00
PUT_PROP "metal wall",#08,#09
CALL_1N R0250
RTRUE
Routine R0252, 0 locals
CALL_VN R0150 (#06,#018d)
CALL_VN R0150 (#07,#018f)
SET_ATTR "metal wall",#19
PUT_PROP "Contraption ",#0a,#a4
PUT_PROP "Contraption ",#09,#00
PUT_PROP "metal wall",#08,#0a
CALL_1N R0250
RTRUE
Routine R0253, 0 locals
JE G4c,#13 [FALSE] L0001
JE G4d,#04 [FALSE] L0001
TEST_ATTR "metal wall",#19 [FALSE] L0001
PRINT_RET "You bump into an invisible barrier - perhaps the edge
of the reflection."
L0001: JE G4c,#18 [TRUE] L0002
RFALSE
L0002: JE G4d,#0d [TRUE] L0003
RFALSE
L0003: PRINT "There are fourteen pieces in the grid, and one gap. The
pieces have letters upon them "
TEST_ATTR "metal wall",#19 [FALSE] L0004
PRINT "(in reflected script) "
L0004: PRINT "and are arranged as follows:
"
CALL_1N R0247
PRINT_RET "
[Try "slide b", for instance, to move a piece into the gap.]"
Routine R0254, 3 locals
Action routine for:
"slide SPECIAL"
JE G00,#a3 [TRUE] L0001
PRINT_RET ""Slide" is inappropriate here."
L0001: JE G75,#01 [FALSE] L0002
STORE G51,#01
L0002: JE G51,#00 [FALSE] L0003
PRINT_RET "What piece was that?"
L0003: STORE L00,#00
DEC L00
L0004: JL L00,#0e [FALSE] L0009
INC L00
LOADB G19,L00 -> -(SP)
JE (SP)+,G51 [FALSE] L0008
JL L00,#03 [TRUE] L0005
SUB L00,#03 -> L01
LOADB G19,L01 -> -(SP)
JE (SP)+,#00 [FALSE] L0005
JUMP L0010
L0005: JL L00,#0c [FALSE] L0006
ADD L00,#03 -> L01
LOADB G19,L01 -> -(SP)
JE (SP)+,#00 [FALSE] L0006
JUMP L0010
L0006: MOD L00,#03 -> L02
JE L02,#00 [TRUE] L0007
SUB L00,#01 -> L01
LOADB G19,L01 -> -(SP)
JE (SP)+,#00 [FALSE] L0007
JUMP L0010
L0007: JE L02,#02 [TRUE] L0008
ADD L00,#01 -> L01
LOADB G19,L01 -> -(SP)
JE (SP)+,#00 [FALSE] L0008
JUMP L0010
L0008: JUMP L0004
L0009: PRINT "Unfortunately, "
SUB #41,#01 -> -(SP)
ADD G51,(SP)+ -> L00
PRINT_CHAR L00
PRINT_RET " is not adjacent to the gap."
L0010: INC G33
JE G33,#08 [FALSE] L0011
CALL_2N R0041 (#24)
L0011: JE G33,#05 [FALSE] L0012
CALL_2N R0041 (#2a)
L0012: LOADB G19,L00 -> L02
STOREB G19,L01,L02
STOREB G19,L00,#00
PRINT "You slide '"
SUB #41,#01 -> -(SP)
ADD G51,(SP)+ -> L00
PRINT_CHAR L00
PRINT "' into the gap, leaving the grid looking like:
"
CALL_1N R0247
STORE L00,#00
DEC L00
L0013: JL L00,#0e [FALSE] L0015
INC L00
LOADB G19,L00 -> L01
LOADB G1a,L00 -> -(SP)
JE L01,(SP)+ [TRUE] L0014
RFALSE
L0014: JUMP L0013
L0015: CALL_2N R0040 (#10)
PRINT "
There is a click from the mechanism. Pulleys pull. Cogs spin. Little bits of
string run.
"
TEST_ATTR "Contraption ",#19 [TRUE] L0026
CALL_1N R0249
PRINT "
The cannonball drops out of the metal hand, and falls into the higher basket,
which plunges down, hurling the other basket upwards, "
GET_CHILD "hanging cord" -> L01 [TRUE] L0016
L0016: JE L01,#00 [FALSE] L0017
PRINT_RET "but it must have been empty."
L0017: GET_SIBLING L01 -> L01 [TRUE] L0018
L0018: PRINT "and projecting "
JE L01,#00 [FALSE] L0019
PRINT "something"
JUMP L0020
L0019: PRINT "some things"
L0020: PRINT " up the hole in the corner."
NEW_LINE
TEST_ATTR "Contraption ",#00 [FALSE] L0023
GET_CHILD "hanging cord" -> L01 [TRUE] L0021
L0021: JE L01,#00 [TRUE] L0023
GET_SIBLING L01 -> L00 [TRUE] L0022
L0022: REMOVE_OBJ L01
INSERT_OBJ L01,"Lawn Ornaments"
STORE L01,L00
JUMP L0021
L0023: TEST_ATTR "Contraption ",#00 [TRUE] L0024
PRINT "
A moment later, however, there is a distant but loud thump. A moment after
that, something plummets back down out of the hole (in a shower of thin white
plaster) and into the higher basket, which (owing to fantastic machinery)
wrenches down again, hurling the cannonball in the other end up into the air.
The metal hand catches the cannonball beautifully.
"
CALL_1N R0248
L0024: GET_PARENT "glowing golden orb" -> -(SP)
JE (SP)+,#39 [FALSE] L0025
INSERT_OBJ "glowing golden orb","Contraption "
JUMP L0026
L0025: REMOVE_OBJ "glowing golden orb"
L0026: RTRUE
Routine R0255, 0 locals
Action routine for:
"drink"
JE G00,#d6 [FALSE] L0001
PRINT_RET "Ugh! What foul water."
L0001: JE G00,#8d [FALSE] L0002
PRINT_RET "Just about drinkable. Not much fun, though."
L0002: JE G00,#0109 [FALSE] L0003
PRINT_RET "Delicious clear and unpolluted."
L0003: JE G00,#ec [FALSE] L0004
PRINT_RET "Salt water! You must be joking."
L0004: PRINT_RET "There's nothing suitable to drink here."
Routine R0256, 0 locals
Action routine for:
"fill NOUN"
JE G00,#0149 [FALSE] L0007
GET_PARENT "dug hole" -> -(SP)
JE (SP)+,#0149 [FALSE] L0001
JE G4d,#014d [TRUE] L0002
L0001: PRINT_RET "What?"
L0002: PRINT "You fill in the hole, restoring the turf."
L0003: GET_CHILD "dug hole" -> -(SP) [TRUE] L0004
L0004: JE (SP)+,#00 [TRUE] L0006
GET_CHILD "dug hole" -> -(SP) [TRUE] L0005
L0005: REMOVE_OBJ (SP)+
JUMP L0003
L0006: REMOVE_OBJ "dug hole"
RFALSE
L0007: JE G00,#d6 [FALSE] L0008
JUMP L0012
L0008: JE G00,#8d [FALSE] L0009
JUMP L0012
L0009: JE G00,#0109 [FALSE] L0010
JUMP L0012
L0010: JE G00,#ec [FALSE] L0011
JUMP L0012
L0011: PRINT_RET "Try "get all" and then "put all in..."."
L0012: PRINT_RET "Don't go carting water about, for heaven's sake, it'll
only make a mess of your clothes and all your spare clothes are packed."
Routine R0257, 0 locals
Action routine for:
"sorry"
TEST_ATTR "carbolic soap",#01 [FALSE] L0001
PRINT_RET "Oh, don't apologise."
L0001: PRINT_RET "Sorry isn't good enough!"
Routine R0258, 1 local
Action routine for:
"wash mouth with HELD"
"wash mouth out with HELD"
JE G4d,#01d2 [TRUE] L0001
PRINT_RET "That's not something you can wash with."
L0001: STORE L00,#01d2
REMOVE_OBJ L00
SET_ATTR "carbolic soap",#01
PRINT_RET "Ugh, it tastes absolutely ghastly. But you feel better
for it."
Routine R0259, 1 local
Action routine for:
"bugger"
"bugger SPECIAL"
"bugger at SPECIAL"
STORE L00,#01d2
REMOVE_OBJ L00
INSERT_OBJ L00,G03
CLEAR_ATTR "carbolic soap",#01
PRINT_RET "Now, that sort of language is an absolute disgrace, and
you're going to have to pay the price for it."
Routine R0260, 0 locals
Action routine for:
"bother"
"bother SPECIAL"
PRINT_RET "It's good that you can express your frustration in such
a mild way."
Routine R0261, 0 locals
Action routine for:
"attack NOUN with HELD"
"strike NOUN with HELD"
JE G4d,#0144 [FALSE] L0001
JE G4e,#0142 [TRUE] L0002
L0001: CALL_1N R0262
RFALSE
L0002: GET_PARENT "hard wooden ball" -> -(SP)
JE (SP)+,G00 [TRUE] L0003
PRINT_RET "The ball is not on the ground."
L0003: CALL_2N R0041 (#0f)
PRINT "You strike the ball with the mallet, and a pleasing
cracking sound.
"
JE G00,#90 [FALSE] L0004
PRINT_RET "
The ball ricochets around the ornaments as on a pinball table."
L0004: JE G00,#0149 [FALSE] L0005
GET_PROP "Croquet Lawn",#0f -> -(SP)
JE (SP)+,#00 [TRUE] L0006
L0005: RFALSE
L0006: PRINT "
The ball runs smoothly across the lawn"
GET_PARENT "dug hole" -> -(SP)
JE (SP)+,#0149 [FALSE] L0007
INSERT_OBJ "hard wooden ball","dug hole"
PRINT_RET ", and falls in the hole."
L0007: REMOVE_OBJ "hard wooden ball"
PUT_PROP "Croquet Lawn",#0f,#0145
PUT_PROP "Lawn Ornaments",#18,S1014
PUT_PROP "Mosaic",#0b,#0145
PRINT_RET ", along to the northwestern hedge and into an irate
squirrel. In a sudden rustle he leaps away, knocking aside a rotten branch and
uncovering a tiny gap through the hedge."
Routine R0262, 2 locals
Action routine for:
"attack NOUN"
JE G4d,#85 [FALSE] L0001
CALL_2N R0041 (#1c)
PRINT_RET "Well, she's annoying, but that's family for you."
L0001: JE G4d,#da [FALSE] L0002
PRINT_RET "You are unable to touch the man. It is as if he isn't
there."
L0002: JE G4d,#55 [FALSE] L0003
PRINT_RET "Ectoplasm is as nice to touch as its reputation
suggests."
L0003: JE G4d,#0120 [FALSE] L0004
PRINT_RET "A little late for that now."
L0004: JE G4d,#0122 [FALSE] L0005
PRINT_RET "That is possibly not a very far-sighted act."
L0005: JE G4d,#ed [FALSE] L0006
PRINT_RET "No need, if the sea-monster is all it's cracked up to
be."
L0006: JE G4d,#d1 [FALSE] L0007
PRINT_RET "She mesmerises you back. She hasn't lived all these
centuries in the Latin Quarter for nothing, you know."
L0007: JE G4d,G03 [FALSE] L0011
JE G06,#0a [FALSE] L0011
STORE G06,#01
STORE L00,#04
GET_CHILD L00 -> L00 [TRUE] L0008
L0008: JE L00,#00 [TRUE] L0010
GET_SIBLING L00 -> L01 [TRUE] L0009
L0009: REMOVE_OBJ L00
INSERT_OBJ L00,G03
STORE L00,L01
JUMP L0008
L0010: PRINT "Ouch! You wake up, smarting.
"
INSERT_OBJ G03,"comfortable bed"
STORE G00,#5b
CALL_2N R0041 (#2c)
RFALSE
L0011: JE G4d,#0179 [FALSE] L0012
PRINT_RET "He is adamant."
L0012: JE G4d,#0163 [FALSE] L0013
PRINT_RET "As you ought to know, the Oracle is inviolable."
L0013: JE G4d,#0154 [FALSE] L0014
PRINT_RET "What, strike the greatest poet who ever lived?"
L0014: PRINT_RET "Violence is seldom the answer, you know."
Routine R0263, 0 locals
Action routine for:
"dive"
JE G00,#0181,#01c5,#0185 [FALSE] L0001
PRINT_RET "The waters are deceptively treacherous. Best not."
L0001: JE G00,#0189,#0188 [FALSE] L0002
PRINT_RET "You are utterly content where you are."
L0002: JE G00,#d6 [FALSE] L0003
PRINT_RET "Swim in that? No thanks."
L0003: JE G00,#ec [TRUE] L0004
PRINT_RET "There's not enough water to swim in."
L0004: JE G24,#00 [FALSE] L0005
STORE G24,#01
PRINT_RET "Mmm. Here is your first and only warning: the sea is
the domain of Poseidon, and he's not what you'd call a gentleman."
L0005: STORE G05,#07
PRINT_RET "As you dive into the sea, you catch sight of Andromeda
looking suddenly cheerful. It soon becomes apparent why, as a Kraken wakes from
the depths of the ocean and swipes you for a quick snack. You seem to have
replaced her as sacrifice... a Pyrrhic victory."
Routine R0264, 0 locals
Action routine for:
"swing NOUN"
"swing on NOUN"
JE G00,#0104 [TRUE] L0001
PRINT_RET "There's nothing sensible to swing here."
L0001: JE G4d,#0105 [TRUE] L0002
PRINT_RET "You can't swing on that."
L0002: SET_ATTR "hemp rope",#19
PRINT_RET "You set the rope swinging back and forth. Very
exhilarating!"
Routine R0265, 0 locals
Action routine for:
"blow croquet"
PRINT_RET "You'll have to be a little more explicit."
Routine R0266, 1 local
Action routine for:
"blow HELD"
TEST_ATTR "gas mask",#02 [FALSE] L0001
PRINT_RET "With the gas mask on?"
L0001: JE G4d,#30 [FALSE] L0010
PRINT "Fweep! Fweep!
"
GET_PARENT "Austin" -> -(SP)
JE (SP)+,G00 [FALSE] L0002
PRINT "
Austin is startled, but too lazy to look up.
"
L0002: JE G00,#013f [FALSE] L0003
PRINT_RET "
The sparrows swoop down and around you, but rapidly lose interest."
L0003: JE G00,#0141 [FALSE] L0006
TEST_ATTR "flock of sparrows",#19 [FALSE] L0004
PRINT_RET "
But the sparrows cannot hear."
L0004: TEST_ATTR "gold watch on a chain",#06 [FALSE] L0005
PRINT_RET "
But the sparrows are wise to that one."
L0005: SET_ATTR "gold watch on a chain",#06
SET_ATTR "flock of sparrows",#19
REMOVE_OBJ "irate squirrel friend"
CALL_2N R0040 (#1d)
PRINT_RET "
The sparrows swoop down onto the roof, battering against the glass. In the
process the gold watch comes loose, and falls to the ground with a
disconcerting thud.
It just misses the squirrel, who bolts away, startled.
The sudden motion once more disturbs the flighty sparrows, who take to the
skies. You feel rather deserted all of a sudden."
L0006: JE G00,#ef,#0162 [FALSE] L0007
PRINT_RET "
The sacred falcon of Apollo wheels high in the sky over the cave mouth, but
then flies away."
L0007: JE G00,#018b [FALSE] L0008
GET_PARENT "unexciting tombstone" -> -(SP)
JE (SP)+,#00 [FALSE] L0008
INSERT_OBJ "cloak of many colours","Necropolis"
INSERT_OBJ "unexciting tombstone","Necropolis"
PUT_PROP "Necropolis",#12,#018d
PRINT_RET "
The birds of prey swoop, startled, down to an unexciting tombstone which you
hadn't noticed before; but after a moment they relax and slip away into the
darkness."
L0008: JE G00,#0168 [FALSE] L0009
GET_PARENT "corn crake" -> -(SP)
JE (SP)+,#0168 [FALSE] L0009
PRINT_RET "The corn crake must be stone deaf, since although she
seems eminently distractable, she didn't appear to hear a thing."
L0009: RFALSE
L0010: JE G4d,#0155 [FALSE] L0019
JE G00,#f0 [FALSE] L0011
PRINT_RET "The goats are amused by your derisory playing."
L0011: JE G00,#0162 [TRUE] L0012
PRINT_RET "You sound off some dissident notes."
L0012: PRINT "Seized by divine inspiration, you launch into J. S.
Bach's "
RANDOM #05 -> L00
JE L00,#01 [FALSE] L0013
PRINT "Prelude number 1"
L0013: JE L00,#02 [FALSE] L0014
PRINT "Passacaglia"
L0014: JE L00,#03 [FALSE] L0015
PRINT "Chromatic Fantasy and Fugue"
L0015: JE L00,#04 [FALSE] L0016
PRINT "partita for unaccompanied flute"
L0016: JE L00,#05 [FALSE] L0017
PRINT "duet number four"
L0017: GET_PARENT "Oracle" -> -(SP)
JE (SP)+,G00 [FALSE] L0018
PRINT_RET "."
L0018: INSERT_OBJ "Oracle",G00
PRINT ". Suddenly the great god Apollo appears before you! As
he speaks the very rock reverberates.
"All wisdom is mine, mortal!
Though you shall seek out your curse
A thousand years and more. Now ask!"
Apollo, as he vanishes, laughs in that style more recently popularised by Third
World dictators and mad scientists.
"
CALL_2N R0040 (#22)
RTRUE
L0019: JE G4d,#010c [TRUE] L0020
PRINT_RET "You can't usefully blow that."
L0020: PRINT "You blow the horn, and it lets a great clarion call out
to the hills. "
JL G1b,#07 [TRUE] L0021
PRINT "The guardsmen, all over the villa, find you very
quickly.
"
CALL_1N R0438
JUMP L0022
L0021: PRINT "A call which is rapidly answered as...
"
STORE G1b,#07
L0022: RTRUE
Routine R0267, 0 locals
Action routine for:
"clean NOUN"
JE G4d,#a4 [FALSE] L0001
PRINT_RET "You polish the metal a little, but there's far too much
to do by hand."
L0001: JE G4d,#a7 [FALSE] L0003
TEST_ATTR "glowing golden orb",#19 [FALSE] L0002
PRINT_RET "It shines already!"
L0002: PRINT "Bewilderingly, the condensation dissolves your hand
away, and the water rushes up over your body as if it were blotting paper. You
feel nothing except disorientation, but your confusion soon resolves to...
"
REMOVE_OBJ "glowing golden orb"
INSERT_OBJ "glowing golden orb",G00
GET_PARENT G03 -> G27
STORE G28,G00
STORE G00,#a8
REMOVE_OBJ G03
INSERT_OBJ G03,"Inside the Orb"
CALL_2N R0198 (#01)
RTRUE
L0003: JE G4d,#3e [TRUE] L0004
PRINT_RET "You achieve nothing by this."
L0004: SET_ATTR "solid glass ball",#19
JE G25,#01 [FALSE] L0005
TEST_ATTR "slide projector",#18 [FALSE] L0005
PRINT "You polish the ball to a nice shine, and get out of the
way of the beam. Now the glass ball "
CALL_1N R0382
RTRUE
L0005: PRINT_RET "You polish the ball to a nice shine."
Routine R0268, 2 locals
Action routine for:
"set NOUN"
JE G4d,#e1 [TRUE] L0001
PRINT_RET "No, you can't set that."
L0001: STORE L00,#e1
GET_PROP L00,#15 -> L01
JE L01,#00 [TRUE] L0002
PRINT_RET "It is already running!"
L0002: PUT_PROP L00,#15,#0a
PRINT "You wind back the timer to 10 minutes, and off it goes.
"
STORE G11,#01
RTRUE
Routine R0269, 0 locals
Action routine for:
"consume HELD"
"drink NOUN"
TEST_ATTR "gas mask",#02 [FALSE] L0001
PRINT_RET "With the gas mask on?"
L0001: TEST_ATTR G4d,#1a [TRUE] L0002
PRINT_RET "No, it's plainly inedible."
L0002: REMOVE_OBJ G4d
JE G4d,#36 [FALSE] L0003
CLEAR_ATTR G03,#19
PRINT_RET "It tastes alarmingly of chocolate."
L0003: CALL_2N R0040 (#16)
PRINT "You eat the "
PRINT_OBJ G4d
PRINT_RET ". Not bad."
Routine R0270, 0 locals
Action routine for:
"wave"
PRINT_RET "You wave, feeling foolish."
Routine R0271, 0 locals
JE G4c,#18 [FALSE] L0001
RFALSE
L0001: PRINT_RET "It is out of reach, beyond the glass."
Routine R0272, 1 local
Action routine for:
"wave NOUN"
GET_PARENT G4d -> L00
JE L00,G03 [TRUE] L0001
PRINT_RET "But you aren't holding it."
L0001: STORE L00,G4d
TEST_ATTR L00,#13 [FALSE] L0006
TEST_ATTR "daisy chain",#02 [FALSE] L0002
STORE L00,#86
GET_PROP L00,#15 -> L00
JE L00,#01 [FALSE] L0002
ADD G01,#06 -> G01
ADD G16,#06 -> G16
PRINT "Light pulses around the daisy chain, then leaps out to
engulf the "
PRINT_OBJ G4d
PRINT " which melts into "
REMOVE_OBJ G4d
GET_PROP G4d,#17 -> L00
STORE G71,L00
SET_ATTR L00,#06
SET_ATTR L00,#20
INSERT_OBJ L00,G03
CALL_2N R0289 (L00)
PRINT_RET "!"
L0002: TEST_ATTR "yellow daisy",#02 [FALSE] L0005
ADD G01,#06 -> G01
ADD G16,#06 -> G16
PRINT "Light pulses from the daisy behind your ear, leaping
out to engulf the "
PRINT_OBJ G4d
PRINT " which melts into "
REMOVE_OBJ G4d
GET_PROP G4d,#17 -> L00
STORE G71,L00
SET_ATTR L00,#06
INSERT_OBJ L00,G03
TEST_ATTR L00,#12 [FALSE] L0003
CALL_2N R0290 (L00)
L0003: TEST_ATTR L00,#12 [TRUE] L0004
CALL_2N R0289 (L00)
L0004: PRINT_RET "!"
L0005: STORE L00,G4d
L0006: TEST_ATTR L00,#12 [FALSE] L0007
PRINT_RET "That seems to be not quite how they work..."
L0007: JE L00,#d7 [FALSE] L0008
JE G00,#d6 [FALSE] L0008
TEST_ATTR "tourist boat",#0a [TRUE] L0008
SET_ATTR "tourist boat",#0a
PRINT_RET "You wave the handkerchief, and the boat glides smoothly
across the river toward you."
L0008: JE L00,#cb [FALSE] L0009
JE G00,#d6 [FALSE] L0009
TEST_ATTR "tourist boat",#0a [TRUE] L0009
PRINT "You wave the poster at the boat, but the boat remains
unmoved.
"
CALL_1N R0313
RFALSE
L0009: TEST_ATTR L00,#02 [FALSE] L0010
PRINT_RET "You can't wave what you're wearing."
L0010: PRINT "You look ridiculous waving the "
PRINT_OBJ L00
PRINT_RET "."
Routine R0273, 1 local
Action routine for:
"strike NOUN"
GET_PARENT G4d -> L00
JE L00,G03 [TRUE] L0001
PRINT_RET "But you aren't holding it."
L0001: JE G00,#0121 [FALSE] L0002
PRINT_RET "The clouds are too fluffy."
L0002: STORE L00,G4d
TEST_ATTR L00,#12 [TRUE] L0003
PRINT "You ineffectually bash the "
PRINT_OBJ L00
PRINT_RET " on the ground."
L0003: TEST_ATTR L00,#14 [FALSE] L0004
STORE G05,#01
PRINT_RET "The already-charged rod explodes with cataclysmic
violence, burying everything nearby in rubble!"
L0004: SET_ATTR L00,#14
CALL_2N R0040 (#06)
JE G00,#df [FALSE] L0005
PRINT_RET "You look rather conspicuous striking the rod on the
cafe table, but everyone else assumes you're part of the cabaret. Anyway, the
rod charges up as usual."
L0005: JE G00,#a8 [FALSE] L0006
PRINT_RET "The sphere rings with a hollow noise, but the rod
charges up."
L0006: JE G06,#0e [FALSE] L0007
PRINT_RET "The rod draws etherial power from the rocks and the
spirits..."
L0007: PRINT_RET "The rod charges with etherial power, drawn up from the
earth through ley lines..."
Routine R0274, 0 locals
Action routine for:
"beckon NOUN"
GET_PARENT G4d -> -(SP)
JE (SP)+,#01 [FALSE] L0001
GET_PARENT "adamantine knight" -> -(SP)
JE (SP)+,G00 [FALSE] L0001
CALL_1N R0116
RFALSE
L0001: TEST_ATTR G4d,#12 [FALSE] L0002
PRINT_RET "Please point it at something."
L0002: PRINT_RET "A useless gesture."
Routine R0275, 2 locals
Action routine for:
"beckon HELD at NOUN"
GET_PARENT G4d -> L00
JE L00,G03 [TRUE] L0001
PRINT_RET "But you aren't holding it."
L0001: GET_PARENT G4e -> L00
JE L00,G03 [FALSE] L0002
PRINT_RET "It's too fiddly pointing it at something you're
holding."
L0002: STORE L00,G4d
TEST_ATTR L00,#12 [TRUE] L0003
PRINT_RET "Ok. (Why?)"
L0003: TEST_ATTR L00,#14 [TRUE] L0004
PRINT_RET "Nothing happens."
L0004: CALL_2N R0040 (#07)
GET_PROP G4d,#07 -> L01
JE L01,#ffff [FALSE] L0005
PRINT_RET "Not implemented yet."
L0005: CLEAR_ATTR G4d,#14
CALL_VS L01 -> Gef
RTRUE
Routine R0276, 0 locals
Action routine for:
"rip"
"rip NOUN"
PRINT_RET "That sort of wilful damage to property is exactly
what's wrong with the world today. And another thing, the influence of
so-called rock and roll music on society has in my view, and I may be
old-fashioned, but... [etc]"
Routine R0277, 0 locals
Action routine for:
"drag down NOUN"
"rip down NOUN"
JE G4d,#cb [TRUE] L0001
CALL_1N R0276
RFALSE
L0001: STORE G4c,#02
CALL_VN R0026 (G4d,#00,G4c)
RTRUE
Routine R0278, 0 locals
Action routine for:
"make"
"make wish"
"make a wish"
"make for SPECIAL"
GET_PARENT "chicken wishbone" -> -(SP)
JE (SP)+,G03 [TRUE] L0001
PRINT_RET "You make a wish."
L0001: PRINT_RET "The wishbone has already been pulled, and you have the
part which lost."
Routine R0279, 2 locals
Action routine for:
"drag NOUN"
JE G4d,#6a [FALSE] L0001
PRINT_RET "It already has been. The part you have, lost."
L0001: TEST_ATTR G4d,#1d [FALSE] L0004
TEST_ATTR G4d,#19 [FALSE] L0002
PRINT_RET "It is already pulled out."
L0002: SET_ATTR G4d,#19
PRINT "You pull out "
CALL_2N R0290 (G4d)
PRINT ". "
STORE L00,#e0
GET_PROP L00,#15 -> L01
STOREB G18,L01,G4d
INC L01
PUT_PROP L00,#15,L01
JE L01,#04 [FALSE] L0003
SET_ATTR "complicated-looking bomb",#19
PRINT_RET "All four wires are now disconnected."
L0003: RTRUE
L0004: TEST_ATTR G4d,#17 [FALSE] L0007
TEST_ATTR G4d,#18 [FALSE] L0005
STORE G4c,#3e
JUMP L0006
L0005: STORE G4c,#3f
L0006: CALL_VN R0026 (G4d,#00,G4c)
RFALSE
L0007: TEST_ATTR G4d,#0f [FALSE] L0008
PRINT_RET "It is fixed in place."
L0008: TEST_ATTR G4d,#0e [FALSE] L0009
PRINT_RET "You are unable to."
L0009: JE G4d,#0126 [FALSE] L0010
PRINT_RET "Austin hisses and will not be pulled by the tail."
L0010: PRINT_RET "Nothing obvious happens."
Routine R0280, 0 locals
Action routine for:
"bounce NOUN"
TEST_ATTR G4d,#04 [FALSE] L0002
JE G4d,#0126 [FALSE] L0001
PRINT_RET "Perhaps you should say which way to push Austin."
L0001: PRINT_RET "How vulgar."
L0002: JE G4d,#03 [FALSE] L0003
JE G00,#49 [FALSE] L0003
TEST_ATTR "secret door",#01 [FALSE] L0003
CLEAR_ATTR "secret door",#01
INSERT_OBJ "secret door","Dead End"
CALL_2N R0040 (#03)
PRINT_RET "A secret door springs open!"
L0003: JE G4d,#d0 [FALSE] L0007
GET_PARENT "Madame Sosostris, famous clairvoyante" -> -(SP)
JE (SP)+,#cd [TRUE] L0006
TEST_ATTR "Madame Sosostris, famous clairvoyante",#19 [TRUE] L0004
INSERT_OBJ "Madame Sosostris, famous clairvoyante","Consulting
Room"
PRINT_RET "Madame Sosostris, the famous clairvoyante, breezes in
through the hanging curtain and sits behind the table, making waving gestures
with her hands.
"First, this I must know, were you born in an even, or an odd, year?""
L0004: TEST_ATTR "Unreal City",#19 [FALSE] L0005
PRINT_RET "She has helped enough."
L0005: PRINT "Madame Sosostris breezes in once more. "You again," she
says warily. "Let us see how your fortunes have changed."
"
CALL_1N R0317
RTRUE
L0006: PRINT_RET "Madame Sosostris looks at you in some irritation."
L0007: TEST_ATTR G4d,#17 [FALSE] L0010
TEST_ATTR G4d,#18 [FALSE] L0008
STORE G4c,#3f
JUMP L0009
L0008: STORE G4c,#3e
L0009: CALL_VN R0026 (G4d,#00,G4c)
RFALSE
L0010: JE G4d,#82 [FALSE] L0011
PRINT_RET "It moves easily on the casters."
L0011: TEST_ATTR G4d,#0f [FALSE] L0012
PRINT_RET "It is fixed in place."
L0012: TEST_ATTR G4d,#0e [FALSE] L0013
PRINT_RET "You are unable to."
L0013: PRINT_RET "Nothing obvious happens."
Routine R0281, 1 local
Action routine for:
"bounce NOUN NOUN"
GET_PARENT G4e -> L00
JE L00,#01 [TRUE] L0001
PRINT_RET "That's not a direction."
L0001: JE G4e,#0a [FALSE] L0002
PRINT_RET "Not upstairs you can't."
L0002: JE G4e,#0b [FALSE] L0003
PRINT_RET "Not downstairs you can't."
L0003: TEST_ATTR G4d,#21 [FALSE] L0006
TEST_ATTR "inscriptions",#0a [FALSE] L0004
PRINT_RET "The only direction to push the statue in is to the
centre of the cross, but there's a pit open in the floor there."
L0004: PRINT "You heave the statue along with you.
"
STORE L00,G4d
STORE G4d,G4e
CALL_1N R0194
REMOVE_OBJ L00
INSERT_OBJ L00,G00
GET_PARENT "statue of Poseidon" -> -(SP)
JE (SP)+,#015a [FALSE] L0005
GET_PARENT "statue of Demeter" -> -(SP)
JE (SP)+,#015b [FALSE] L0005
GET_PARENT "statue of Ares" -> -(SP)
JE (SP)+,#015c [FALSE] L0005
GET_PARENT "statue of Dionysus" -> -(SP)
JE (SP)+,#015d [FALSE] L0005
SET_ATTR "inscriptions",#0a
CALL_2N R0040 (#20)
PRINT_RET "
You hear the noise of stone grating against stone."
L0005: RFALSE
L0006: TEST_ATTR G4d,#04 [FALSE] L0019
JE G4d,#0126 [FALSE] L0018
JE G00,#1d [FALSE] L0007
JE G4e,#02,#04,#03 [FALSE] L0007
JUMP L0016
L0007: JE G00,#61 [FALSE] L0008
JE G4e,#05,#03 [FALSE] L0008
JUMP L0016
L0008: JE G00,#7e [FALSE] L0009
JE G4e,#05,#04 [FALSE] L0009
JUMP L0016
L0009: JE G00,#2e [FALSE] L0010
JE G4e,#02,#08 [FALSE] L0010
JUMP L0016
L0010: JE G00,#37 [FALSE] L0011
JE G4e,#07,#03,#05 [FALSE] L0011
JUMP L0016
L0011: JE G00,#37,#38 [FALSE] L0012
JE G4e,#04 [FALSE] L0012
JUMP L0016
L0012: JE G00,#45 [FALSE] L0013
JE G4e,#05 [FALSE] L0013
JUMP L0016
L0013: JE G00,#3c [FALSE] L0014
JE G4e,#02,#03 [FALSE] L0014
JUMP L0016
L0014: JE G00,#42 [FALSE] L0015
JE G4e,#02 [FALSE] L0015
JUMP L0016
L0015: PRINT_RET "Austin refuses to go that way."
L0016: PRINT "Austin reluctantly accompanies you.
"
L0017: STORE L00,G4d
STORE G4d,G4e
CALL_1N R0194
REMOVE_OBJ L00
INSERT_OBJ L00,G00
RFALSE
L0018: PRINT_RET "How vulgar."
L0019: JE G4d,#ba [FALSE] L0022
PRINT "You bounce the beach ball along in front of you.
"
JE G00,#b3 [FALSE] L0020
JE G4e,#03 [TRUE] L0021
L0020: JUMP L0017
L0021: PRINT "You pass between the steel walls and a light passes
over you. Suddenly barriers spring out across the corridor, thumping into the
beach ball which rapidly begins to deflate.
There is a sharp hiss as you nimbly jump over the ball, and then a horrid clang
as the barriers come together behind you.
"
STORE G4d,#03
CALL_1N R0194
REMOVE_OBJ "beach ball"
CALL_2N R0040 (#1f)
RFALSE
L0022: JE G4d,#82 [TRUE] L0023
PRINT_RET "Is that the best you can think of?"
L0023: TEST_ATTR "antiquated wireless",#01 [FALSE] L0024
PRINT_RET "What radio?"
L0024: JE G4e,#04 [FALSE] L0025
PRINT_RET "Not upstairs you can't."
L0025: PRINT "It moves easily on the casters.
"
STORE L00,G4d
STORE G4d,G4e
CALL_1N R0194
REMOVE_OBJ L00
INSERT_OBJ L00,G00
JE G00,#83 [FALSE] L0026
STORE G05,#03
PRINT_RET "Aunt Jemima spends the next four hours explaining to
you exactly why she put the radio into storage. The reason is awfully
convoluted and due to her firm conviction that magnetic fields influence the
growth of plants. By that time you have to leave for the airport..."
L0026: RTRUE
Routine R0282, 0 locals
Action routine for:
"rotate NOUN"
"rotate NOUN inside out"
JE G4d,#50 [FALSE] L0002
PRINT "With a horrid creaking noise, the crank "
TEST_ATTR "Inside Cupboard",#00 [FALSE] L0001
CLEAR_ATTR "Inside Cupboard",#00
CLEAR_ATTR "cranked skylight",#0a
PRINT_RET "shuts down the skylight."
L0001: SET_ATTR "Inside Cupboard",#00
SET_ATTR "cranked skylight",#0a
PRINT_RET "winds open the skylight, flooding the room with
sunshine."
L0002: JE G4d,#43 [FALSE] L0006
JE G25,#01 [FALSE] L0004
STORE G25,#00
TEST_ATTR "slide projector",#18 [FALSE] L0003
CLEAR_ATTR "Disused Observatory",#00
PRINT_RET "The sharp beam of light cuts out again."
L0003: PRINT_RET "Click."
L0004: STORE G25,#01
TEST_ATTR "slide projector",#18 [FALSE] L0005
SET_ATTR "Disused Observatory",#00
PRINT_RET "A sharp beam of white light appears backward out of the
projector. As you step out of the beam, it extends dead straight through the
north doorway."
L0005: PRINT_RET "Click."
L0006: TEST_ATTR G4d,#0f [FALSE] L0007
PRINT_RET "It is fixed in place."
L0007: TEST_ATTR G4d,#0e [FALSE] L0008
PRINT_RET "You are unable to."
L0008: PRINT_RET "Nothing obvious happens."
Routine R0283, 0 locals
GET_PARENT "fire escape" -> -(SP)
JE (SP)+,#49 [FALSE] L0001
RFALSE
L0001: PUT_PROP "Dead End",#0b,#4c
PUT_PROP "Dead End",#12,#4c
INSERT_OBJ "fire escape","Dead End"
SET_ATTR "Dead End",#00
PRINT_RET "
Your footfall causes the crystal ball to wobble fractionally, just enough for
the beam of light to cross the smoke detector. Click! and then some electronic
bleeping. Little servo motors fire lethargically into life, then collapse in
exhaustion. The alarm soon runs down to a tiny drone, then silence.
But there's quite a loud report from off to the east somewhere."
Routine R0284, 1 local
Action routine for:
"squash NOUN"
TEST_ATTR G4d,#04 [FALSE] L0001
PRINT_RET "Keep your hands to yourself."
L0001: JE G4d,#97 [TRUE] L0002
PRINT_RET "You achieve nothing by this."
L0002: TEST_ATTR "weed killer bottle",#19 [FALSE] L0003
PRINT_RET "Nothing emerges. The bottle must be empty."
L0003: SET_ATTR "weed killer bottle",#19
JE G00,#f2 [FALSE] L0004
PRINT_RET "A valiant but doomed idea. The weed killer harms barely
a single tendril of the wall."
L0004: JE G00,#93 [FALSE] L0005
STORE L00,#94
REMOVE_OBJ L00
STORE L00,#93
PUT_PROP L00,#11,#00
PRINT_RET "Congratulations. You have devastated the runner-bean
plant."
L0005: JE G00,#8f [FALSE] L0006
PRINT_RET "Happily, the weed killer makes no impression on the
beautiful old tree."
L0006: JE G06,#05 [FALSE] L0007
JUMP L0011
L0007: JE G06,#06 [TRUE] L0008
PRINT_RET "A stream of weed-killer emerges, but evaporates almost
at once, just as well considering the vile smell."
L0008: JE G00,#b1 [TRUE] L0009
JUMP L0011
L0009: CALL_VS R0391 (G0a,G0b) -> L00
JE L00,#00 [FALSE] L0010
PRINT_RET "A stream of weed-killer soaks into the grass, and does
nothing obvious."
L0010: STORE G0c,G0a
STORE G0d,G0b
PRINT_RET "A stream of weed-killer soaks into the seedbed, and
does nothing obvious."
L0011: PRINT_RET "A stream of weed-killer soaks into the earth, and does
nothing obvious."
Routine R0285, 0 locals
Action routine for:
"l under NOUN"
CALL_1N R0286
RTRUE
Routine R0286, 1 local
Action routine for:
"l inside NOUN"
"l in NOUN"
"l through NOUN"
"frisk NOUN"
JE G4d,#96,#0186 [FALSE] L0001
PRINT_RET "You find nothing concealed within."
L0001: JE G00,#df [FALSE] L0003
JE G4d,#0d [FALSE] L0003
TEST_ATTR "complicated-looking bomb",#01 [FALSE] L0002
CLEAR_ATTR "complicated-looking bomb",#01
STORE L00,#e0
REMOVE_OBJ L00
INSERT_OBJ L00,"Ruined Castle Cafe"
PRINT_RET "Now don't panic, but there's a ticking bomb loosely
taped to the underside of the table you're sitting at!"
L0002: PRINT_RET "You make no further alarming discoveries."
L0003: JE G4d,#5f [FALSE] L0004
TEST_ATTR "delicate gold key",#01 [FALSE] L0004
CLEAR_ATTR "delicate gold key",#01
PRINT_RET "You dislodge something shiny!"
L0004: JE G4d,#1f [FALSE] L0006
PRINT "That was the first place you tried, hours and hours ago
now"
TEST_ATTR "History of the Meldrews (vol. II)",#01 [FALSE] L0005
PRINT ", and there's nothing there but that boring old book.
You pick it up anyway, bored as you are"
CALL_2N R0041 (#21)
CLEAR_ATTR "History of the Meldrews (vol. II)",#01
REMOVE_OBJ "History of the Meldrews (vol. II)"
INSERT_OBJ "History of the Meldrews (vol. II)",G03
L0005: PRINT_RET "."
L0006: JE G4d,#81 [FALSE] L0010
TEST_ATTR "antiquated wireless",#01 [FALSE] L0007
CLEAR_ATTR "antiquated wireless",#01
CALL_2N R0040 (#08)
PRINT_RET "Not as many sheets as you thought - they were on top of
a large black wireless, now exposed to the light for the first time in months."
L0007: PRINT "No, you're only getting your "
TEST_ATTR "old gardeners' gloves",#02 [FALSE] L0008
PRINT "gloves"
JUMP L0009
L0008: PRINT "hands"
L0009: PRINT_RET " stained looking."
L0010: JE G4d,#46 [FALSE] L0013
TEST_ATTR "old gardeners' gloves",#02 [TRUE] L0011
PRINT_RET "A rash act. The itchy fibres of the insulation soon
deter you."
L0011: STORE L00,#47
GET_PARENT L00 -> -(SP)
JE #46,(SP)+ [TRUE] L0012
PRINT_RET "Nothing else there, unfortunately."
L0012: REMOVE_OBJ L00
INSERT_OBJ L00,"East Annexe"
CALL_2N R0040 (#0c)
PRINT_RET "You uncover a shiny new battery. It must have been
dropped by accident when the loft insulation was being done."
L0013: TEST_ATTR G4d,#08 [TRUE] L0014
PRINT_RET "You find nothing of interest."
L0014: TEST_ATTR G4d,#09 [FALSE] L0015
TEST_ATTR G4d,#0a [TRUE] L0015
PRINT_RET "You can't see inside, since it is closed."
L0015: CALL_1S R0027 -> -(SP)
JE #01,(SP)+ [FALSE] L0016
RTRUE
L0016: PRINT "You peer at "
TEST_ATTR G4d,#0a [FALSE] L0018
TEST_ATTR G4d,#08 [FALSE] L0018
GET_CHILD G4d -> -(SP) [TRUE] L0017
L0017: JE (SP)+,#00 [FALSE] L0018
TEST_ATTR G4d,#0b [TRUE] L0018
CALL_2N R0290 (G4d)
PRINT_RET ", which is empty."
L0018: CALL_VN R0200 (G4d,#02)
PRINT_RET "."
Routine R0287, 1 local
Action routine for:
"l up SPECIAL in HELD"
"l SPECIAL up in HELD"
"l SPECIAL up on HELD"
"l up SPECIAL on HELD"
STORE L00,G4d
STORE G4d,G4e
STORE G4e,L00
CALL_1N R0288
RTRUE
Routine R0288, 1 local
Action routine for:
"l up SPECIAL"
"l up SPECIAL meldrew"
"consult HELD about SPECIAL"
LOADW G49,#01 -> -(SP)
JE #02,(SP)+ [FALSE] L0005
JE G4d,#64 [FALSE] L0001
JUMP L0037
L0001: JE G4d,#5a [FALSE] L0002
JUMP L0040
L0002: JE G4d,#2a [FALSE] L0003
JUMP L0049
L0003: JE G4d,#20 [TRUE] L0004
PRINT_RET "You can't look things up in that."
L0004: JUMP L0017
L0005: STORE L00,#00
GET_PARENT "History of the Meldrews (vol. II)" -> -(SP)
JE (SP)+,G03 [FALSE] L0006
STORE L00,#20
JUMP L0009
L0006: GET_PARENT "tourist map" -> -(SP)
JE (SP)+,G03 [FALSE] L0007
STORE L00,#64
JUMP L0009
L0007: GET_PARENT "ancient prayer book" -> -(SP)
JE (SP)+,G03 [FALSE] L0008
STORE L00,#5a
JUMP L0009
L0008: GET_PARENT "classical dictionary" -> -(SP)
JE (SP)+,G03 [FALSE] L0009
STORE L00,#2a
L0009: JE L00,#00 [FALSE] L0013
GET_PARENT "History of the Meldrews (vol. II)" -> -(SP)
JE (SP)+,G00 [FALSE] L0010
STORE L00,#20
JUMP L0013
L0010: GET_PARENT "tourist map" -> -(SP)
JE (SP)+,G00 [FALSE] L0011
STORE L00,#64
JUMP L0013
L0011: GET_PARENT "ancient prayer book" -> -(SP)
JE (SP)+,G00 [FALSE] L0012
STORE L00,#5a
JUMP L0013
L0012: GET_PARENT "classical dictionary" -> -(SP)
JE (SP)+,G00 [FALSE] L0013
STORE L00,#2a
L0013: JE L00,#00 [FALSE] L0014
PRINT_RET "I don't know what you want to look it up in."
L0014: PRINT "(in "
CALL_2N R0290 (L00)
PRINT ")
"
JE L00,#64 [FALSE] L0015
JUMP L0037
L0015: JE L00,#5a [FALSE] L0016
JUMP L0040
L0016: JE L00,#2a [FALSE] L0017
JUMP L0049
L0017: CALL_2N R0041 (#22)
STORE L00,G50
JE L00,"me" [FALSE] L0018
STORE L00,#01
L0018: JE L00,"myself" [FALSE] L0019
STORE L00,#01
L0019: JE L00,"self" [FALSE] L0020
STORE L00,#01
L0020: JE L00,"peter" [FALSE] L0021
PRINT_RET "
Modestly, the author (died 1940 or so?) missed himself out."
L0021: JE L00,"jemima" [FALSE] L0022
PRINT_RET "
She's far too recent to be included."
L0022: JE L00,"isaac" [FALSE] L0023
PRINT "
Mad Isaac (1705-1792) went in for mystic experiments of all kinds, and was a
noted antiquarian. He believed that the Meldrew family had an ancestral curse,
dooming each member to undertake a futile quest. The only way to break the
curse, he thought, was for one of them to actually succeed... unfortunately he
died in peculiar circumstances before finding out how.
"
PRINT_RET "
Then again, he also believed that King Arthur's wizard Merlin was buried not in
a Tintagel cave, as is usually claimed, but somewhere in the back garden (near
where the motorway is now), and that the moon is a giant pair of black and
white discs towed through the night sky by a team of angels."
L0023: JE L00,"ebenezer" [FALSE] L0024
PRINT_RET "
It seems Ebenezer (1846-1908), the younger of a pair of twins, threw up a
promising career in the East India Company one day, took a packet steamer to
Cape Colony and simply marched off into the bush on a quest to find a legendary
river. His maps were used for several years after, and a province was named
after him for a while, but the locals call it something else now."
L0024: JE L00,"roger" [FALSE] L0025
PRINT_RET "
Roger (1846-1913), the elder of a pair of twins, was very Victorian indeed,
especially in his disapproval of his beautiful young wife's literary career. He
thought her romances so immoral that he refused to allow the family name to
appear on them. A prominent local vestryman, his own writing was confined to a
great many monographs on the problems of municipal drainage, but he died before
his grand National Sewerage Plan was complete."
L0025: JE L00,"capabilit" [FALSE] L0026
PRINT_RET "
"Capability" Meldrew (1761-1817) became a mildly celebrated landscape gardener,
starting a brief fashion for crypts and memorials as garden ornaments (he
claimed it was closer to nature). Very little of his work now survives. His
real name, incidentally, was Willard."
L0026: JE L00,"henri" [FALSE] L0027
PRINT_RET "
Very little is known about Henri, who lived at some time in the fifteenth
century. As a young man he fought at Agincourt, and seems to have been some
kind of combat engineer. The story goes that he acquired his nickname, The
Black Post, from a joke made by the King when he was standing up to his waist
in a ditch. He must have been proud of it because his coat of arms bears his
name written down the left hand side, and Black Post down the right.
In his later years he became morbidly possessed, and (according to legend)
spent his declining years working on his own tomb, which he insisted would be
of celestial importance."
L0027: JE L00,"helene" [FALSE] L0028
PRINT_RET "
Helene Meldrew (1902-) is a noted painter and sculptress. Her relations with
the family were broken off in the 20s when she married Anton and ran off to
Paris to study art, but she has recently returned to the House, in search (as
she puts it) of "the perfect blue, the blue of the sky, the blue of water". We
wish her well."
L0028: JE L00,"anton" [FALSE] L0029
PRINT_RET "
Anton Smyslov shouldn't really be in the book, even if he did marry Helene, but
there is a brief passage, since he was so famous - he was a chess grandmaster,
and won the Paris Open five years running in the 1930s. His speciality was bold
sacrificial attacks, but he was also notorious for eating blueberry yoghurt at
the board."
L0029: JE L00,"alison" [FALSE] L0030
PRINT_RET "
Under the pseudonym Marie Swelldon, your ancestress Alison (1871-1930) wrote
several mildly successful romances. She obsessively collected lucky charms, and
advertised in newspapers for double-headed coins and the like (although she
never traced a rumoured find of a five-leafed clover, somewhere in County
Donegal).
In order to write in tranquillity and to avoid her husband, it was she who
installed the fake wall at the far south end of the attic east wing, and each
afternoon she would sneak upstairs to push it aside."
L0030: JE L00,"joshua" [FALSE] L0031
PRINT "
Oh dear, the deeply regrettable Sir Joshua Meldrewe (1710-1776). Member of the
Dilletanti Society and the Hell-Fire Club, and a politician (chancellor of the
exchequer 1762-3; "probably the least competent minister ever to hold that
office" - Oxford History of England, vol. xii).
"
PRINT_RET "His father disinherited him for wildly excessive living
(he almost invariably wore jewelled buttons worth at least a thousand pounds)
and for marrying a lady of easy virtue while on the run from a prison in
France, where he was sentenced to be beheaded. In order to stop his sister
getting the fortune, he went back to Italy and advertised for a pregnant bride
to provide a male heir. This nefarious plot was foiled when he choked to death
on a chicken-bone.
It is said that he stole the money anyway near the end, and certainly some gold
went missing. (He also managed to get the family stripped of its baronetcy by
cheating at bridge with the Prince of Wales.)"
L0031: JE L00,"hartley" [FALSE] L0032
PRINT_RET "
Your distant great-uncle Hartley was a tiresomely enthusiastic amateur
Egyptologist who, every Christmas, used to sit you on his knee and drone on
about trenches and writings and the fellaheen. It was all a bit of a fraud, you
now discover, since he only actually went to Egypt once - there was such a
scandal about his refusal to donate his best find to the British Museum that he
was never allowed to excavate again, though he spent years writing in vain to
the Egyptian government."
L0032: JE L00,"gerard" [FALSE] L0033
PRINT_RET "
Roger's eldest son Gerard (1898-1916) was killed in the Battle of the Somme.
His mother, "Marie Swelldon", gave up writing afterwards."
L0033: JE L00,"graham" [FALSE] L0034
PRINT_RET "
What a curious name. No, nobody here called Graham."
L0034: JE L00,"austin" [FALSE] L0035
PRINT_RET "
Austin's quite venerable for a cat, but not that old."
L0035: JE L00,#01 [FALSE] L0036
PRINT_RET "
Perhaps you may one day earn a place in vol. III."
L0036: PRINT_RET "
Annoyingly there's no index (there was going to be a consolidated one in vol.
I) and you can't find what you want."
L0037: STORE L00,G51
JE L00,#058c [FALSE] L0039
TEST_ATTR "Museum Foyer",#11 [FALSE] L0038
PRINT_RET "You remember, the museum."
L0038: PRINT "
At that exact grid reference is Meldreustrasse, a minor back street which
houses a museum of arcana.
Suddenly you remember! You visited the place once, and the curator Doktor
Stein showed you round... and he hypnotised you into a swirl of
unconsciousness...
"
STORE L00,#64
REMOVE_OBJ L00
INSERT_OBJ L00,G00
STORE G06,#03
STORE G00,#b3
REMOVE_OBJ G03
INSERT_OBJ G03,"Museum Foyer"
CALL_2N R0198 (#00)
RTRUE
L0039: PRINT_RET "Just some anonymous streets. The detail of this map is
so tiny that unless you have the exact four-digit grid reference for what you
want, you'll never find it."
L0040: STORE L00,G51
JL L00,#06bd [TRUE] L0041
JG L00,#0700 [FALSE] L0042
L0041: PRINT_RET "He didn't seem to be experimenting in those days."
L0042: JE L00,#0700 [FALSE] L0043
PRINT "In 1792, the last year of his life, ol' red-eyes
becomes very excited about his new discovery. This time he claims that Merlyn
bounde uppe the mystic estate (by this he means the back garden - Isaac never
did have any sense of proportion) wyth great Roddes of Power. These are
dangerous, yet also useful in themselves, but are really part of a great key...
the usual nonsense. Of course you never actually see these rods, because they
disguise themselves until waved by someone wearing Merlyn's hat.
"
PRINT_RET "The funny thing is that Isaac died (legend has it, by
spontaneous combustion) only a week after this breakthrough, preventing him
from sending yet another paper to the Royal Society. But since Merlyn
supposedly lived in about the sixth century A.D., there can't be a lot left of
his hat, so the matter may be academic."
L0043: PRINT "In the year "
PRINT_NUM G51
PRINT ", Isaac was mainly concerned with "
MOD G51,#06 -> L00
JE L00,#00 [FALSE] L0044
PRINT_RET "alchemy."
L0044: JE L00,#01 [FALSE] L0045
PRINT_RET "caustical opticks."
L0045: JE L00,#02 [FALSE] L0046
PRINT_RET "concave mirrors."
L0046: JE L00,#03 [FALSE] L0047
PRINT_RET "the edibility of reptiles."
L0047: JE L00,#04 [FALSE] L0048
PRINT_RET "the spleens of flightless birds."
L0048: JE L00,#05 [FALSE] L0049
PRINT_RET "melting points of metals."
L0049: NEW_LINE
TEST_ATTR "Homer",#19 [FALSE] L0050
GET_PROP "Homer",#15 -> -(SP)
JL (SP)+,#03 [FALSE] L0050
GET_PARENT "Homer" -> -(SP)
JE G00,(SP)+ [FALSE] L0050
CALL_1N R0295
PRINT ""Well, if you're going to cheat, forget it," says Homer
loudly as he falls asleep.
"
L0050: STORE L00,G50
JE L00,"galita" [FALSE] L0051
PRINT_RET "Minor deity of tombs, reincarnated from a fly who flew
into setting amber."
L0051: JE L00,"menelaus" [FALSE] L0052
PRINT_RET "General in Trojan War, and brother of Agamemnon."
L0052: JE L00,"agamemnon" [FALSE] L0053
PRINT_RET "General in Trojan War, and brother of Menelaus."
L0053: JE L00,"ares" [FALSE] L0054
PRINT_RET "Greek god of war."
L0054: JE L00,"chlamys" [FALSE] L0055
PRINT_RET "An emperor's (rectangular) cloak."
L0055: JE L00,"husbandry" [FALSE] L0056
PRINT_RET "Not this dictionary!"
L0056: JE L00,"hades" [FALSE] L0057
PRINT_RET "Underworld of spirits."
L0057: JE L00,"adamantin" [FALSE] L0058
PRINT_RET "Hardest stone known to the ancients."
L0058: JE L00,"iliad","odyssey" [FALSE] L0059
PRINT_RET "Epic by Homer."
L0059: JE L00,"helicon" [FALSE] L0060
PRINT_RET "Mythical mountain of poets and muses."
L0060: JE L00,"hephaestu" [FALSE] L0061
PRINT_RET "Greek god of blacksmiths and master of metals."
L0061: JE L00,"pan" [FALSE] L0062
PRINT_RET "Greek god of pastures and shepherds; player of the
syrinx, or pipes."
L0062: JE L00,"demeter" [FALSE] L0063
PRINT_RET "Greek goddess of plenty."
L0063: JE L00,"poseidon" [FALSE] L0064
PRINT_RET "Greek god of the sea, and of horses."
L0064: JE L00,"apollo","loxias" [FALSE] L0065
PRINT_RET "Greek god of words, music and poetry."
L0065: JE L00,"zeus" [FALSE] L0066
PRINT_RET "Greek ruler of the gods."
L0066: JE L00,"leda" [FALSE] L0067
PRINT_RET "Mortal woman seduced by Zeus, who appeared to her in
the form of a swan."
L0067: JE L00,"hera" [FALSE] L0068
PRINT_RET "Jealous wife of Zeus."
L0068: JE L00,"aphrodite" [FALSE] L0069
PRINT_RET "Greek goddess of beauty."
L0069: JE L00,"athene" [FALSE] L0070
PRINT_RET "Greek goddess of wisdom."
L0070: JE L00,"diana" [FALSE] L0071
PRINT_RET "Goddess of hunting, the underworld (with Pluto) and the
moon."
L0071: JE L00,"selenae" [FALSE] L0072
PRINT_RET "Mythical island mountain home of Diana."
L0072: JE L00,"sosostris" [FALSE] L0073
PRINT_RET "Mythical pharoah of Egypt, after whom a curious cult
rose: sometimes confused with Alexander the Great."
L0073: JE L00,"pluto" [FALSE] L0074
PRINT_RET "Canine Walt Disney character, after whom the planet is
named."
L0074: JE L00,"dionysus" [FALSE] L0075
PRINT_RET "Greek god of wine, and revelry."
L0075: JE L00,"furies","curses","eumenides" [FALSE] L0076
PRINT_RET "Eternally pursuing Greek goddesses, they enforced
divine rules by punishing the families of miscreants through all time."
L0076: JE L00,"omphalos" [FALSE] L0077
PRINT_RET "Fabled to be the stone at the centre (literally
"navel") of the world."
L0077: JE L00,"oracle","pythian" [FALSE] L0078
PRINT_RET "Priestess of Apollo: her predictions were legendary for
their accuracy, and also their difficulty to interpret."
L0078: JE L00,"pharos" [FALSE] L0079
PRINT_RET "Lighthouse-tower. The great one at Alexandria was one
of the Seven Wonders of the World."
L0079: JE L00,"aeschylus" [FALSE] L0080
PRINT_RET "The first great tragic playwright (525 - c.456 BC)."
L0080: JE L00,"kraken" [FALSE] L0081
PRINT_RET "Legendary sea-monster of Poseidon (though the word
derives from the Norwegian - not a lot of people know that)."
L0081: JE L00,"andromeda" [FALSE] L0082
PRINT_RET "Maiden sacrificed to a sea-monster, according to myth
eventually saved by Perseus."
L0082: JE L00,"perseus" [FALSE] L0083
PRINT_RET "Greek hero and slayer of monsters."
L0083: JE L00,"syrinx" [FALSE] L0084
PRINT_RET "Pan-pipes: reed-cut."
L0084: JE L00,"homer" [FALSE] L0085
PRINT_RET "Earliest poet of the Greek tradition, legendarily
blind: nothing is known about him, except that he (supposedly) wrote the
"Iliad" and the "Odyssey"."
L0085: JE L00,"ekmek","eraina" [FALSE] L0086
PRINT_RET "The Ekmek Special is a delicacy still served to this
day by the Eraina Taverna, Free School Lane, Cambridge, England. Much prized by
itinerant mathematicians."
L0086: JE L00,"callimach" [FALSE] L0087
PRINT_RET "Cataloguer of the Alexandrian library: most famous of
all the wittily brief epigrammatic poets."
L0087: JE L00,"apolloniu" [FALSE] L0088
PRINT_RET "Librarian, mathematician, epic poet, politician."
L0088: JE L00,"arthur" [FALSE] L0089
PRINT_RET "Half-mythical High King of the Britons."
L0089: JE L00,"merlin","merlyn" [FALSE] L0090
PRINT_RET "Half-mythical wizard to the court of King Arthur."
L0090: JE L00,"alexandri" [FALSE] L0091
PRINT_RET "City on the Nile Delta founded by Alexander the Great."
L0091: JE L00,"alexander" [FALSE] L0092
PRINT_RET "Macedonian who conquered the known world in his
twenties."
L0092: JE L00,"ptolemy" [FALSE] L0093
PRINT_RET "General of Alexander the Great, governed and later
inherited Egypt."
L0093: JE L00,"odysseus","ulysses" [FALSE] L0094
PRINT_RET "Wasn't he a sailor?"
L0094: PRINT_RET "Sorry, there's nothing on that."
Routine R0289, 2 locals
TEST_ATTR L00,#05 [TRUE] L0003
GET_PROP L00,#03 -> L01
JE L01,#01 [FALSE] L0001
PRINT "the "
JUMP L0003
L0001: JE L01,#02 [FALSE] L0002
PRINT "an "
JUMP L0003
L0002: PRINT_PADDR L01
PRINT " "
L0003: PRINT_OBJ L00
RTRUE
Routine R0290, 1 local
TEST_ATTR L00,#05 [TRUE] L0001
PRINT "the "
L0001: PRINT_OBJ L00
RTRUE
Routine R0291, 1 local
TEST_ATTR L00,#05 [TRUE] L0001
PRINT "The "
L0001: PRINT_OBJ L00
RTRUE
Routine R0292, 1 local
Action routine for:
"discard HELD at NOUN"
TEST_ATTR G4e,#04 [TRUE] L0001
PRINT_RET "Futile."
L0001: JE G4e,#85 [FALSE] L0002
CALL_2N R0041 (#1c)
PRINT_RET "Well, quite. Best to just grit your teeth and put up
with her though."
L0002: JE G4e,#55 [FALSE] L0004
REMOVE_OBJ G4d
JE G4d,#6a [FALSE] L0003
STORE L00,#54
REMOVE_OBJ L00
INSERT_OBJ L00,"Priest's Hole"
SET_ATTR "gothic-looking iron key",#19
SET_ATTR "Sir Joshua Meldrewe",#01
CALL_2N R0040 (#02)
PRINT_RET "The ghost swallows the wishbone, grinning nastily. Then
a look of consternation spreads across his face. He begins to choke and as he
fades away, his arms flailing wildly, he lets go of the key, which sails
through the air onto the roof and (against all odds) falls neatly down a
chimney."
L0003: PRINT "The ghost swallows the "
PRINT_OBJ G4d
PRINT_RET " whole and grins!"
L0004: PRINT_RET "You lack the nerve when it comes to the crucial
moment."
Routine R0293, 1 local
TEST_ATTR "demon",#19 [TRUE] L0002
GET_PROP "demon",#15 -> L00
JE L00,#00 [FALSE] L0001
PRINT_RET ""No hints left, sucker.""
L0001: PRINT_RET ""Under Regulation 3, paragraph 15 (i) clause (f), only
one hint per visit to the infernal domain. You'll have to go away again and
come back if you want another. So sorry.""
L0002: RFALSE
Routine R0294, 1 local
TEST_ATTR "angel",#19 [TRUE] L0002
STORE L00,#0122
GET_PROP "angel",#15 -> L00
JE L00,#00 [FALSE] L0001
PRINT_RET ""No hints left, alas.""
L0001: PRINT_RET ""Under Regulation 3, paragraph 15 (i) clause (f), only
one hint per visit to the sacred domain. You'll have to go away again and come
back if you want another. So sorry.""
L0002: RFALSE
Routine R0295, 0 locals
CLEAR_ATTR "Homer",#19
PUT_PROP "Homer",#04,S1015
RTRUE
Routine R0296, 2 locals
Action routine for:
"answer SPECIAL to CREATURE"
TEST_ATTR "gas mask",#02 [FALSE] L0001
PRINT_RET "Not through a gas mask you can't."
L0001: JE G4e,#85 [FALSE] L0011
TEST_ATTR "Jemima",#19 [TRUE] L0002
CALL_2N R0041 (#11)
PRINT_RET "She pretends not to have heard, a favourite ploy of
hers when sulking."
L0002: CLEAR_ATTR "Jemima",#19
STORE L01,#00
JE G50,"yellow" [FALSE] L0003
STORE L01,#01
L0003: JE G50,"blue" [FALSE] L0004
STORE L01,#02
L0004: JE G50,"red" [FALSE] L0005
STORE L01,#04
L0005: JE G50,"white" [FALSE] L0006
STORE L01,#05
L0006: JE G50,"green" [FALSE] L0007
STORE L01,#06
L0007: JE G50,"orange" [FALSE] L0008
STORE L01,#09
L0008: JE L01,#00 [TRUE] L0009
PRINT ""Right you are then, I'm sure I have some which are
just right."
"
L0009: JE L01,#00 [FALSE] L0010
STORE L01,#05
PRINT ""Nothing like that left. Just plain old daisies for you
then dear!"
"
L0010: CALL_VN R0035 (#85,#0a)
STORE L00,#86
PUT_PROP L00,#15,L01
PRINT_RET "After a moment she notices you're still here. "Come
back later, it'll be done soon." You groan inwardly but force a sickly smile.
Should have eaten the chocolates myself, you find yourself thinking."
L0011: JE G4e,#dd [FALSE] L0014
TEST_ATTR "fifty-franc note",#19 [TRUE] L0012
PRINT_RET "It's not that he doesn't understand you, he's just
obstructive for the sake of it."
L0012: JE G50,"carte" [FALSE] L0013
STORE L00,#de
INSERT_OBJ L00,G03
CALL_2N R0040 (#12)
SET_ATTR "tourist map of Paris",#06
PRINT_RET "Extremely reluctantly he serves you, giving you a
tourist map of Paris."
L0013: PRINT_RET ""Non." And he folds his arms defiantly. Perhaps he has
no such thing."
L0014: JE G4e,#d1 [FALSE] L0017
JE G50,"even" [FALSE] L0015
JUMP L0016
L0015: JE G50,"odd" [TRUE] L0016
PRINT_RET ""You must answer my question!" She does seem anxious."
L0016: CALL_1N R0317
STORE L00,#d1
REMOVE_OBJ L00
SET_ATTR L00,#19
SET_ATTR L00,#01
RTRUE
L0017: JE G4e,#da [FALSE] L0029
JE G50,"time" [FALSE] L0021
STORE G06,#05
PRINT "You lose all sense of time and place as the boat drifts
down river... It comes as a considerable relief to your befuddled nerves when
the man helps you off the boat again, and you find yourself:
"
TEST_ATTR "tourist map of Paris",#06 [FALSE] L0018
STORE G06,#01
STORE G00,#7b
L0018: TEST_ATTR "tourist map of Paris",#06 [TRUE] L0019
STORE G00,#8d
L0019: REMOVE_OBJ G03
INSERT_OBJ G03,G00
CALL_2N R0198 (#01)
TEST_ATTR "hollow man",#19 [TRUE] L0020
SET_ATTR "hollow man",#19
INSERT_OBJ "Ace of Cups",G03
PRINT "
Was any of that real? you wonder, as you relax in the sunshine. But then you
realise you are clutching a tarot card which certainly is.
"
L0020: RTRUE
L0021: ADD G21,#01 -> G21
JE G21,#01 [FALSE] L0022
PRINT_RET ""I don't believe in that place any more. Hurry up
please it's time!""
L0022: JE G21,#02 [FALSE] L0023
PRINT_RET ""Hurry up please it's time!""
L0023: JE G21,#03 [FALSE] L0024
PRINT_RET ""HURRY UP PLEASE IT'S TIME!""
L0024: JE G21,#04 [FALSE] L0025
PRINT_RET "He can't be bothered to say anything this time."
L0025: JE G21,#05 [FALSE] L0026
PRINT_RET "It really is time you thought of something."
L0026: JE G21,#06 [FALSE] L0027
PRINT_RET "Time and time again you haven't guessed correctly."
L0027: JE G21,#07 [FALSE] L0028
PRINT_RET "The hollow man must be beginning to think you can't
take a hint."
L0028: PRINT_RET ""It's time!" repeats the hollow man."
L0029: JE G4e,#ed [FALSE] L0030
PRINT_RET "Andromeda hisses something contemptuous at you in
Greek. (Attic, not Demotic, ironically enough, but then it's all Greek to
you.)"
L0030: JE G4e,#fb [FALSE] L0031
PRINT_RET "Being an educated person, the bartender speaks a little
Latin and some Aramaic. Being an uneducated one, you don't, and communication
proves impossible."
L0031: JE G4e,#0120 [FALSE] L0034
CALL_1S R0293 -> -(SP)
JE (SP)+,#00 [TRUE] L0032
RFALSE
L0032: CALL_2S R0453 (G50) -> -(SP)
JE #00,(SP)+ [TRUE] L0033
CLEAR_ATTR "demon",#19
L0033: RFALSE
L0034: JE G4e,#0122 [FALSE] L0037
CALL_1S R0294 -> -(SP)
JE (SP)+,#00 [TRUE] L0035
RFALSE
L0035: CALL_2S R0454 (G50) -> -(SP)
JE #00,(SP)+ [TRUE] L0036
CLEAR_ATTR "angel",#19
L0036: RFALSE
L0037: JE G4e,#0195 [FALSE] L0038
PRINT_RET "Madame Sosostris is meditating."
L0038: JE G4e,#0163 [FALSE] L0039
CALL_1N R0082
RFALSE
L0039: JE G4e,#0126 [FALSE] L0040
PRINT_RET "Austin belches splendidly by way of reply."
L0040: JE G4e,#0148 [FALSE] L0041
PRINT_RET "Chirp!"
L0041: JE G4e,#0179 [FALSE] L0042
PRINT_RET "A shame there were no adamantine ears, really."
L0042: JE G4e,#01c6 [FALSE] L0043
PRINT_RET "You can't understand his guttural speech, but the die
seems his only fascination."
L0043: JE G4e,#0154 [FALSE] L0051
TEST_ATTR "Homer",#19 [TRUE] L0044
PRINT_RET "Homer is asleep."
L0044: GET_PROP "Homer",#15 -> -(SP)
JE (SP)+,#03 [FALSE] L0045
PRINT_RET "Homer glares back."
L0045: GET_PROP "Homer",#15 -> -(SP)
JE (SP)+,#00 [FALSE] L0047
JE G50,"agamemnon" [FALSE] L0046
PUT_PROP "Homer",#15,#01
PRINT_RET ""Mph," he says (untranslatably). "But can ya see the
future? Who's gonna rule Alexandria after the fall of the guy they're gonna
call Alexander the Big?""
L0046: CALL_1N R0295
PRINT_RET ""Hopeless," he says dismissively and falls asleep."
L0047: GET_PROP "Homer",#15 -> -(SP)
JE (SP)+,#01 [FALSE] L0049
JE G50,"ptolemy" [FALSE] L0048
PUT_PROP "Homer",#15,#02
PRINT_RET ""What's your favorite color?""
L0048: JUMP L0046
L0049: JE G50,"yellow" [FALSE] L0050
PUT_PROP "Homer",#04,S1016
INSERT_OBJ "Pan pipes",G03
PUT_PROP "Homer",#15,#03
CALL_2N R0040 (#21)
PRINT_RET "Homer reluctantly hands you the syrinx. "Now leave me
alone, I've got six books of the Iliad left to compose.""
L0050: JUMP L0046
L0051: JE G4e,#01c2 [FALSE] L0053
JE G50,"anoppe","eppona" [FALSE] L0052
CALL_1N R0130
RFALSE
L0052: PRINT_RET "There is no sign of the slave having heard you."
L0053: JE G4e,#01bd,#01b9 [FALSE] L0054
PRINT_RET "As a barbarian scholar, unversed in Greek, you can
hardly expect to converse with such as he."
L0054: JE G4e,#c6,#f1 [FALSE] L0055
PRINT_RET "Grunt!"
L0055: PRINT_RET "No reply."
Routine R0297, 0 locals
Action routine for:
"achetez SPECIAL"
JE G00,#f9 [FALSE] L0001
PRINT_RET "Given the language difficulty, you'd better resort to
barter."
L0001: JE G00,#dc [TRUE] L0002
PRINT_RET "There's nothing on sale."
L0002: PRINT_RET ""Q'est-ce que vous voulez acheter?""
Routine R0298, 0 locals
Action routine for:
"ask CREATURE about SPECIAL"
JE G4d,#85 [FALSE] L0011
CALL_2N R0041 (#11)
JE G50,"daisies","chains" [FALSE] L0001
PRINT_RET "Jemima gives you a cool look. "They're just for
decoration.""
L0001: JE G50,"austin","cat" [FALSE] L0002
PRINT_RET ""Wretched cat! More trouble than he's worth.""
L0002: JE G50,"rubber","gloves" [FALSE] L0003
PRINT_RET ""Those are my gloves.""
L0003: JE G50,"tourist","map","paris" [FALSE] L0004
PRINT_RET ""I wouldn't know. I'm not the one going on holiday.""
L0004: JE G50,"attic","key" [FALSE] L0005
PRINT_RET ""You haven't lost the attic key again? Hmph.""
L0005: JE G50,"demijohn","bottle" [FALSE] L0006
PRINT_RET ""Load of old junk.""
L0006: JE G50,"dumb","waiter","dumbwaite" [FALSE] L0007
PRINT_RET ""You leave that rickety old thing alone!""
L0007: JE G50,"calendar" [FALSE] L0008
PRINT_RET ""Not bad. Of course, my daisies are better, but not bad
for beginners.""
L0008: JE G50,"colour","colours" [FALSE] L0009
PRINT_RET ""Everyone has their own favourite.""
L0009: JE G50,"radio","wireless" [FALSE] L0010
PRINT_RET ""I've told you a hundred times, I don't want a
transistor radio. That old valve set is fine for me.""
L0010: PRINT_RET "Jemima has nothing to say to you."
L0011: JE G4d,#0120 [FALSE] L0012
STORE G4d,G4e
STORE G4e,#0120
CALL_1N R0296
RFALSE
L0012: JE G4d,#0122 [FALSE] L0013
STORE G4d,G4e
STORE G4e,#0122
CALL_1N R0296
RFALSE
L0013: CALL_1N R0296
RTRUE
Routine R0299, 0 locals
Action routine for:
"exhibit off"
"sing"
PRINT_RET "You do your best to sing the opening from Schutz'
sacred concerto "O bone Jesu, fili Mariae" (SWV 471). Unfortunately your best
is such that the result is indistinguishable from "How much is that doggie in
the window?"."
Routine R0300, 0 locals
Action routine for:
"climb NOUN"
JE G4d,#0d [FALSE] L0002
JE G00,#8f [FALSE] L0001
STORE G4d,#0a
CALL_1N R0194
RFALSE
L0001: JE G00,#ae [FALSE] L0002
PRINT_RET "It's far, far too crumbly."
L0002: GET_PARENT G4d -> -(SP)
JE (SP)+,#01 [FALSE] L0003
CALL_VN R0026 (G4d,#00,#13)
RTRUE
L0003: PRINT_RET "I don't think much is to be achieved by that."
Routine R0301, 0 locals
Action routine for:
"wait"
PRINT_RET "Time passes."
Routine R0302, 0 locals
Action routine for:
"ram NOUN"
JE G06,#01 [FALSE] L0001
PRINT_RET "For heaven's sake, this is your own house."
L0001: JE G00,#c5 [FALSE] L0002
PRINT_RET "No, this is a goat. A "ram" is a kind of sheep."
L0002: PRINT_RET "Please don't ram anything. This computer only has
limited RAM."
Routine R0303, 0 locals
Action routine for:
"hint"
PRINT_RET "There are hints built into this game, but you will have
to find out for yourself how to get them."
Routine R0304, 7 locals
Action routine for:
"help"
JE G2a,#00 [FALSE] L0001
PRINT_RET "Newcomers to the game may like to try the following:
"help instructions" which gives some basic information,
"help commands" details some common commands,
"help credits" runs the game credits,
"help release" notes the release,
"help legal" makes some legal disclaimers; or
"help inform" which advertises the compiler Inform
"help archive" and the interactive fiction archive."
L0001: STORE L00,#07
L0002: STORE L03,#00
ERASE_WINDOW #ffff
SPLIT_WINDOW #0e
LOADB #00,#21 -> L01
JE L01,#00 [FALSE] L0003
STORE L01,#50
L0003: SET_WINDOW #01
SET_CURSOR #01,#01
SET_TEXT_STYLE REVERSE
STORE Gef,L01
JL Gef,#01 [TRUE] L0005
L0004: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0004
L0005: DIV L01,#02 -> -(SP)
SUB (SP)+,#08 -> L02
SET_CURSOR #01,L02
PRINT "Help with Curses"
SET_CURSOR #02,#01
STORE Gef,L01
JL Gef,#01 [TRUE] L0007
L0006: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0006
L0007: SET_CURSOR #02,#02
PRINT "N = next subject"
SUB L01,#0c -> L02
SET_CURSOR #02,L02
PRINT "P = previous"
SET_CURSOR #03,#01
STORE Gef,L01
JL Gef,#01 [TRUE] L0009
L0008: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0008
L0009: SET_CURSOR #03,#02
PRINT "RETURN = read subject"
SUB L01,#0f -> L02
SET_CURSOR #03,L02
PRINT "Q = resume game"
SET_TEXT_STYLE ROMAN
SET_CURSOR #05,#02
LOADW #00,#08 -> -(SP)
OR #02,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
PRINT "Information is available on the following subjects:
Instructions giving some basic information
Commands detailing some common commands
Credits game credits
Release release notes
Legal legal disclaimers
Inform advertising the compiler Inform
Archive and the interactive fiction archive"
L0010: JE L00,L03 [TRUE] L0012
JG L03,#00 [FALSE] L0011
SET_CURSOR L03,#04
PRINT " "
L0011: SET_CURSOR L00,#04
PRINT ">"
L0012: STORE L03,L00
READ_CHAR #01,#00,#00 -> L04
JE L04,#4e,#6e,#81 [FALSE] L0014
INC L00
JE L00,#0e [FALSE] L0013
STORE L00,#07
L0013: JUMP L0010
L0014: JE L04,#50,#70,#82 [FALSE] L0016
DEC L00
JE L00,#06 [FALSE] L0015
STORE L00,#0d
L0015: JUMP L0010
L0016: JE L04,#51,#71 [FALSE] L0017
JUMP L0029
L0017: JE L04,#0a,#0d [FALSE] L0028
SET_WINDOW #00
LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
STORE G41,#01
NEW_LINE
NEW_LINE
NEW_LINE
JE L00,#07 [FALSE] L0018
STORE G50,"instructi"
STORE L05,#06
STORE L06,S1017
L0018: JE L00,#08 [FALSE] L0019
STORE G50,"commands"
STORE L05,#09
STORE L06,S1018
L0019: JE L00,#09 [FALSE] L0020
STORE G50,"credits"
STORE L05,#04
STORE L06,S1019
L0020: JE L00,#0a [FALSE] L0021
STORE G50,"release"
STORE L05,#07
STORE L06,S1020
L0021: JE L00,#0b [FALSE] L0022
STORE G50,"legal"
STORE L05,#07
STORE L06,S1021
L0022: JE L00,#0c [FALSE] L0023
STORE G50,"inform"
STORE L05,#06
STORE L06,S1022
L0023: JE L00,#0d [FALSE] L0024
STORE G50,"archive"
STORE L05,#04
STORE L06,S1023
L0024: ERASE_WINDOW #ffff
SPLIT_WINDOW #01
LOADB #00,#21 -> L01
JE L01,#00 [FALSE] L0025
STORE L01,#50
L0025: SET_WINDOW #01
SET_CURSOR #01,#01
SET_TEXT_STYLE REVERSE
STORE Gef,L01
JL Gef,#01 [TRUE] L0027
L0026: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0026
L0027: DIV L01,#02 -> -(SP)
SUB (SP)+,L05 -> L02
SET_CURSOR #01,L02
PRINT_PADDR L06
SET_TEXT_STYLE ROMAN
SET_WINDOW #00
STORE G41,#01
NEW_LINE
CALL_1N R0305
PRINT "
[Please press SPACE.]
"
READ_CHAR #01,#00,#00 -> L04
JUMP L0002
L0028: JUMP L0010
L0029: LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
SET_CURSOR #01,#01
ERASE_WINDOW #ffff
SET_WINDOW #00
STORE G41,#01
CALL_1N R0159
NEW_LINE
NEW_LINE
NEW_LINE
CALL_1N R0198
RTRUE
Routine R0305, 1 local
Action routine for:
"help SPECIAL"
STORE L00,G50
NEW_LINE
JE L00,"instructi" [FALSE] L0001
PRINT "
Welcome to the world of CURSES, an "
PRINT "Advanced "
PRINT "interactive Adventure game...
"
PRINT "The scene is set initially in the present day, at
Meldrew Hall, an old family seat in the shires of England. You play the part of
the current heir to the house. (This doesn't make your family rich aristocrats
- just people who suffer very badly from inheritance tax.)
Remember, your only aim is to find that map of Paris so you can go on holiday -
try not to get diverted by any enormous quests. Still, it would be interesting
to find out:
"
PRINT "
Just how realistic are the Tarot cards?
What do sixth century politics have to do with you?
Surely Greek myths can't come into this?
What on earth is wrong with your entire family?
Do the National Trust have sinister motives?
Why is it so hard to go to church these days?
What are daisies for? Or goats, for that matter?
Can modernist poetry really be bad for you?
Should you rescue someone who doesn't want you to?
"
PRINT "To finally understand the secret, you will need to
reach the Master Game, a concluding game-within-a-game buried deep in the past.
Good luck!"
JUMP L0008
L0001: JE L00,"release" [FALSE] L0002
CALL_1N R0029
PRINT "
Release 12 is the fifth public release of "Curses", and the first "Advanced
story file" version. The four previous public releases were:
"
PRINT " Release 7 / 930428 (the original and still the
worst)
Release 8 / 930603 (much enhanced, slightly larger)
Release 9 / 931111 (extended by about 20%)
Release 10 / 940120 (tidied up a little)
"
PRINT "Altogether, since Release 7 "Curses" has seen 211 minor
improvements, and small additions too numerous to mention. Release 12 is a
major extension, adding many new regions, puzzles and features to tax beginners
and experts alike."
PRINT "
This edition comes to you from the August 1994 edition of Acorn User magazine."
JUMP L0008
L0002: JE L00,"credits" [FALSE] L0003
SET_TEXT_STYLE BOLDFACE
PRINT "CURSES
"
SET_TEXT_STYLE ROMAN
PRINT "An Interactive Diversion by Graham Nelson
Play-testing by Michael Kinyon, Gareth Rees and Richard Tucker
Together with informers: "
PRINT "Torbjorn Andersson, Jonathan Badger, Allen Braunsdorf,
Otto Christenson, Alan Cox, Richard Develyn, Paul David Doherty, Roger
Dominick, Ivan Drucker, Jon Drukman, Paul Fletcher, Richard Forster, Ron
Galicia, Allen Garvin, Mark "Guido" Guidarelli, Will Hurwood, Hakan Huss, Darin
Johnson, Darius Katz, Peter Killworth, Mark Knibbs, Chris Mann, M. Sean Molley,
Byron Montgomerie, David Moore, Christine Nelson, Toby Nelson, Carrie O'Grady,
Michael A. Patton, Mason Reed, Robert Rendell, Loren Rittle, John Rodriguez,
Kathleen Rudden, Bryan Scattergood, Dilip Sequeira, Nyko Tyni, David
VanBronkhorst, Robin Watts, John West, Christopher A. Wichura, Graham Willmott,
Andrew Wren and Zhang Genglue.
"
PRINT "Archimedes !Zip Interpreter by: Mark Howell, ported by
Edouard Poor.
Acorn User liaison: David Matthewman and Robin Watts.
"
PRINT "Apologies and acknowledgements to: the late Mr T. S.
Eliot, the Oxford History of England, Philip Vellacott's translations of the
Greek plays and the guidebooks of the British Museum; "
PRINT "and Volker Blasius, for keeping the if-archive.
"
PRINT "Coffee mugs fired by: Helena Verrill.
"
PRINT "Genealogy, photography and Archimedes consultant: Peter
Nelson.
"
PRINT "Archaeology: the InfoTaskForce, Paul David Doherty and
Mark Howell, without whose excavations Inform could not have been written. If I
have hacked deeper than them, it is because I stand in their trenches."
JUMP L0008
L0003: JE L00,"legal" [FALSE] L0004
CALL_1N R0029
PRINT "
This story file is copyright (c) Graham Nelson 1993/4, but may be freely
distributed and used provided no profit is involved and provided it is not
modified in any way. "
PRINT "Although it conforms to some (not quite all) file
standards previously used by a certain computing company, it contains no
fragments of code written by anyone other than the author. It was not produced
by modification of any existing story file. The author was extremely tempted to
hide an important clue here, but thought better of it. No trade marks are
(knowingly) used. All characters and locations are imaginary, and any
resemblance to real persons or places is accidental."
JUMP L0008
L0004: JE L00,"commands" [FALSE] L0005
PRINT "Basic commands consist either of a verb on its own, or
a verb with one or more nouns. For instance, to see where you are type "look".
Some verbs can also have more elaborate forms; for instance you could also look
at, inside or under something. "Curses" understands about "
PRINT "1200"
PRINT " English words, so most reasonable synonyms are
allowed.
To pick something up, "take thing" and to drop it again, "drop thing". To see
what you have, type "take inventory" or just "inventory". You can move about
with commands such as "go west", or just "west" for short. (It is assumed that
you are blessed with an excellent sense of direction.)
"
PRINT "Some commands can act on more than one thing. You can
"drop all", which will drop everything (except things you're wearing), for
instance. Or if you found a packing case with a number of things in, you could
type such things as:
remove everything but the blue key
get all the coins except ten, twenty and fifty
(Containers may also be emptied or emptied into each other.) If you are not
explicit enough, sometimes the game can infer what you mean, but at other times
it will ask for further details. It might have replied to the first line above
by saying
(from the yellow packing case)
"
PRINT "so that you know what has been assumed on your behalf.
If there had been two blue keys you might reasonably have meant, it would reply
with something like
Which do you mean, the blue doorkey or the Blue Moon Agency key?
You may either tell it which, or else give up and do something else instead. If
you don't mind which key, you can always say something such as:
drop a key into the slot
and the game will make a sensible choice and tell you what it was.
"
PRINT ""Curses" sometimes assumes commands which you
implicitly make, but always tells you what they are in brackets. For instance:
>look up bach in book
(first taking the Encyclopaedia of Composers)
(putting the tuning fork in the rucksack to make room)
"J. S. Bach (1685-1750) had a pet aardvark called Nigel...
"
PRINT ""it" refers to the last thing manipulated, "him" and
"her" to anyone obvious in the room, and "again" repeats the last command.
You can "save", "restore" or "restart" the game at any time, or indeed "quit"
or ask for your "score", which also tells the time. "fullscore" or "full" gives
a breakdown of the score. As an aide-memoire the command "objects" tells you
where you left things you once had, and "places" says where you have been. "
PRINT "If you want to check that your copy of the game file is
intact (and not, for instance, corrupted by some file-transfer process you used
to get it), you can "verify" it. These commands do not take up any game time,
and nor does anything the game didn't understand.
"
PRINT "Some jaundiced players tire of long descriptions of
places, and they can type "short" (or "superbrief") to make the game only give
short ones. Amnesiac players, on the other hand, may like to use "long" (or
"verbose") to give only long ones. Either kind can go back to the usual state
of affairs with "normal" (or "brief").
"
PRINT "You are currently playing an Advanced-story-file
version of the game, which employs special effects such as "
SET_TEXT_STYLE BOLDFACE
PRINT "bold face"
SET_TEXT_STYLE ROMAN
PRINT " names of rooms and a more elaborate status line than
usual. Also, less than altogether relevant quotations pop up from time to time.
If these effects do not seem to work properly on your machine, or are just
downright annoying, they can be turned off with "plain" and on again with
"pretty".
"
PRINT "From time to time you will be told that your score has
changed: this can be turned off with "notify off", turned on again with "notify
on" or made even more common by "notify full" (which even tells you about
scores accruing from visits to places, unusual items discovered and the like).
"
PRINT "Simple typing mistakes can sometimes be corrected just
by typing "oops" followed by the word you had intended to type, so for
instance:
drop fish in buket
oops bucket
The game knows several useful abbreviations: i for inventory, ne for northeast
(and so on), l for look, g for again, o for oops, x for examine, z for wait
(short for "zzz" - sorry about that).
"
PRINT "You can sometimes enter larger objects you find. You
might well be able to get in a tractor, for instance, though driving it around
might be harder.
"
PRINT "From time to time, you will wish to speak to other
people. If you only have a single word to say, you could use commands like
answer yes
say boo to goose
(Text in quotation marks is not allowed.) The game will usually guess who you
want to talk to if you miss off the name. A better way to talk, which allows
more complicated remarks, is to use commands such as
"
PRINT "
goose, boo
wine waiter, give me the bill
ask professor about turtles
though the waiter may have better things to do, and the professor might be
quite mad.
Some documents may be consulted in this game. For this, try commands such as
look up chlorine
consult periodic table about argon
"
PRINT "You can give several commands in a row by use of "then"
(or full stops, commas or "and" in some contexts): so, for instance,
e, s, get fish then inventory
e.e.open door.s
"
PRINT "There are, of course, many other commands for more
specialised circumstances. A final word of warning: cursing is strictly
forbidden in this game."
JUMP L0008
L0005: JE L00,"inform" [FALSE] L0006
PRINT ""Inform" is "Curses"' Siamese twin, an Adventure game
compiler written by the author. It takes a C-like source (this game takes up
about 16000 lines, or 650K) to produce story files which can be played on
almost any modern computer. ("Curses" has been played on Acorns, PCs, Macs,
Amigas, Ataris, Suns, NeXTs, VAX and IBM mainframes and many other machines.)
"
PRINT "Inform will be published in next month's (that is, in
the September 1994) edition of Acorn User. Order a copy from your newsagents
now!"
JUMP L0008
L0006: JE L00,"archive" [FALSE] L0007
PRINT "Players with access to the Internet can find an archive
of "interactive fiction" (as adventure games like to call themselves) at the
German site "ftp.gmd.de", in the "if-archive". This is currently maintained by
Volker Blasius, and open to anonymous FTP (file transfer protocol). The archive
contains the work of many people, and includes interpreter programs capable of
running files like this one on almost any computer.
"Curses" itself, and the ANSI C source for its compiler "Inform", together with
a manual and code for small example games, are archived there."
JUMP L0008
L0007: PRINT_RET "There's no help on that, sorry."
L0008: NEW_LINE
RTRUE
Routine R0306, 2 locals
Action routine for:
"xallow SPECIAL"
STORE L00,#01
L0001: JL L00,#01d2 [FALSE] L0008
GET_PROP L00,#09 -> -(SP)
JE (SP)+,#00 [FALSE] L0002
GET_PROP L00,#0a -> -(SP)
JE (SP)+,#00 [FALSE] L0002
GET_PROP L00,#0b -> -(SP)
JE (SP)+,#00 [FALSE] L0002
GET_PROP L00,#0c -> -(SP)
JE (SP)+,#00 [TRUE] L0003
L0002: INC L01
JUMP L0007
L0003: GET_PROP L00,#11 -> -(SP)
JE (SP)+,#00 [FALSE] L0004
GET_PROP L00,#12 -> -(SP)
JE (SP)+,#00 [FALSE] L0004
GET_PROP L00,#0d -> -(SP)
JE (SP)+,#00 [TRUE] L0005
L0004: INC L01
JUMP L0007
L0005: GET_PROP L00,#0f -> -(SP)
JE (SP)+,#00 [FALSE] L0006
GET_PROP L00,#0e -> -(SP)
JE (SP)+,#00 [FALSE] L0006
GET_PROP L00,#10 -> -(SP)
JE (SP)+,#00 [TRUE] L0007
L0006: INC L01
L0007: INC L00
JUMP L0001
L0008: PRINT_NUM L01
PRINT " visitable locations.
"
JE G51,#39 [FALSE] L0009
STORE G1f,#01
PRINT_RET "Ok."
L0009: PRINT_RET "No."
Routine R0307, 1 local
Action routine for:
"xcheat"
STORE L00,#0f
REMOVE_OBJ L00
INSERT_OBJ L00,"Infinity Symbol"
STORE L00,#10
REMOVE_OBJ L00
INSERT_OBJ L00,"Infinity Symbol"
STORE L00,#16
REMOVE_OBJ L00
INSERT_OBJ L00,"Infinity Symbol"
STORE L00,#14
REMOVE_OBJ L00
INSERT_OBJ L00,"Infinity Symbol"
STORE L00,#12
REMOVE_OBJ L00
INSERT_OBJ L00,"Infinity Symbol"
STORE L00,#11
REMOVE_OBJ L00
INSERT_OBJ L00,"Infinity Symbol"
STORE L00,#15
REMOVE_OBJ L00
INSERT_OBJ L00,"Infinity Symbol"
STORE L00,#13
REMOVE_OBJ L00
INSERT_OBJ L00,"Infinity Symbol"
STORE L00,#1a
REMOVE_OBJ L00
INSERT_OBJ L00,"Infinity Symbol"
CALL_2N R0059 (#0f)
CALL_2N R0059 (#1a)
CALL_2N R0059 (#10)
CALL_2N R0059 (#16)
CALL_2N R0059 (#14)
CALL_2N R0059 (#12)
CALL_2N R0059 (#11)
CALL_2N R0059 (#15)
CALL_2N R0059 (#13)
INSERT_OBJ "gold watch on a chain","Graham's Lair"
SET_ATTR "gold watch on a chain",#06
INSERT_OBJ "smooth round stone","Graham's Lair"
INSERT_OBJ "gleaming amber gem","Graham's Lair"
SET_ATTR "gleaming amber gem",#06
INSERT_OBJ "golden astrolabe","Graham's Lair"
INSERT_OBJ "Austin","Causeway"
SET_ATTR "Austin",#19
INSERT_OBJ "Crescent Moon","Graham's Lair"
INSERT_OBJ "rusty iron key",G03
INSERT_OBJ "glowing golden orb",G03
STORE L00,#c1
REMOVE_OBJ L00
INSERT_OBJ L00,"Graham's Lair"
STORE L00,#c3
REMOVE_OBJ L00
INSERT_OBJ L00,"Graham's Lair"
STORE L00,#c0
REMOVE_OBJ L00
INSERT_OBJ L00,"Graham's Lair"
STORE L00,#de
REMOVE_OBJ L00
INSERT_OBJ L00,"Graham's Lair"
STORE L00,#3b
REMOVE_OBJ L00
INSERT_OBJ L00,"Graham's Lair"
STORE L00,#63
REMOVE_OBJ L00
INSERT_OBJ L00,"photographer's flash"
STORE L00,#e1
REMOVE_OBJ L00
INSERT_OBJ L00,"photographer's flash"
CLEAR_ATTR "timer-detonator",#0f
PUT_PROP L00,#15,#00
STORE L00,#4a
REMOVE_OBJ L00
INSERT_OBJ L00,"Graham's Lair"
STORE L00,#bc
REMOVE_OBJ L00
INSERT_OBJ L00,"Graham's Lair"
PRINT_RET "Ok."
Routine R0308, 0 locals
Action routine for:
"xasnc"
CALL_1N R0455
STORE G1c,#01
ADD G02,#012c -> G02
REMOVE_OBJ "glowing golden orb"
INSERT_OBJ "glowing golden orb",G03
PRINT_RET "Ok."
Routine R0309, 0 locals
Action routine for:
"xdeterm"
STORE G1d,#01
STORE G36,#02
STORE G37,#02
INSERT_OBJ "Austin","Souvenirs Room"
PRINT_RET "Ok."
Routine R0310, 0 locals
Action routine for:
"xtravel"
REMOVE_OBJ G03
INSERT_OBJ G03,"Graham's Lair"
STORE G00,#0e
CALL_2N R0198 (#01)
RTRUE
Routine R0311, 0 locals
Action routine for:
"xattic SPECIAL"
STORE G06,G51
CLEAR_ATTR "weed killer bottle",#19
CALL_1N R0160
RFALSE
orphan code fragment:
STORE G36,#fff4
L0001: JL G36,#0d [FALSE] L0004
STORE G37,#fff4
L0002: JL G37,#0d [FALSE] L0003
PRINT "("
PRINT_NUM G36
PRINT ","
PRINT_NUM G37
PRINT ") "
CALL_2N R0073 (G36)
PRINT " "
CALL_2N R0073 (G37)
NEW_LINE
INC G37
JUMP L0002
L0003: INC G36
JUMP L0001
L0004: RTRUE
Routine R0312, 2 locals
Action routine for:
"nap"
TEST_ATTR "carbolic soap",#01 [TRUE] L0001
PRINT_RET "Racked with guilt over your bad language, you are
unable to nod off."
L0001: GET_PARENT G03 -> L00
JE L00,#019b [FALSE] L0002
PRINT "The heavy weave mattings feel so restful that you slide
into...
"
STORE G06,#0d
STORE G00,#019f
PUT_PROP "The Spirit World",#15,#01
INSERT_OBJ G03,"The Spirit World"
CALL_2N R0198 (#01)
RTRUE
L0002: JE L00,#01a1 [FALSE] L0004
GET_PROP "The Spirit World",#15 -> -(SP)
JE (SP)+,#04 [FALSE] L0003
PRINT_RET "The spell of the tomb is broken now, and you cannot
sleep."
L0003: PRINT "The heavy weave mattings draw you deeper into...
"
STORE G06,#0d
STORE G00,#019f
INSERT_OBJ G03,"The Spirit World"
GET_PROP "The Spirit World",#15 -> -(SP)
ADD (SP)+,#01 -> -(SP)
PUT_PROP "The Spirit World",#15,(SP)+
CALL_2N R0198 (#01)
RTRUE
L0004: JE L00,#2b [FALSE] L0005
JUMP L0011
L0005: JE L00,#5c [TRUE] L0006
PRINT_RET "Your mother taught you never to go to sleep until
you're tucked up in bed."
L0006: TEST_ATTR "comfortable bed",#19 [FALSE] L0007
PRINT_RET "You doze awhile, but that's all."
L0007: SET_ATTR "comfortable bed",#19
PRINT "You sleep uneasily, fancying you can see Miss Alison
writing at her table, trying to see the words, and always on the edge of a...
"
GET_CHILD G03 -> L00 [TRUE] L0008
L0008: JE L00,#00 [TRUE] L0010
GET_SIBLING L00 -> L01 [TRUE] L0009
L0009: REMOVE_OBJ L00
INSERT_OBJ L00,"east wall"
STORE L00,L01
JUMP L0008
L0010: STORE G06,#0a
STORE G00,#0127
REMOVE_OBJ G03
INSERT_OBJ G03,"Melancholy Dream"
CALL_1N R0198
RFALSE
L0011: GET_PARENT "Austin" -> -(SP)
JE (SP)+,#28 [FALSE] L0012
PRINT_RET "Austin leaps up onto the bed, jumps around for a bit,
and then falls back onto the floor. You are unable to get any sleep."
L0012: TEST_ATTR "camp bed",#19 [FALSE] L0013
PRINT_RET "You doze awhile, but that's all."
L0013: SET_ATTR "camp bed",#19
PRINT "You sleep unexpectedly deeply, but just as you think
you are starting to wake up, you experience a sudden...
"
GET_CHILD G03 -> L00 [TRUE] L0014
L0014: JE L00,#00 [TRUE] L0016
GET_SIBLING L00 -> L01 [TRUE] L0015
L0015: REMOVE_OBJ L00
INSERT_OBJ L00,"east wall"
STORE L00,L01
JUMP L0014
L0016: STORE G06,#08
STORE G00,#87
REMOVE_OBJ G03
INSERT_OBJ G03,"Premonition"
CALL_1N R0198
RTRUE
Routine R0313, 0 locals
TEST_ATTR "door",#19 [FALSE] L0001
RTRUE
L0001: SET_ATTR "door",#19
STORE G41,#01
CALL_VN R0035 (#61,#04)
ADD G01,#05 -> G01
STORE G17,#01
PRINT_RET "
A shame to see such a good try unrewarded... oh, go on, have an extra five
points."
Routine R0314, 1 local
PRINT "the "
JE L00,#01 [FALSE] L0001
PRINT "Ace"
L0001: JE L00,#02 [FALSE] L0002
PRINT "Two"
L0002: JE L00,#03 [FALSE] L0003
PRINT "Three"
L0003: JE L00,#04 [FALSE] L0004
PRINT "Four"
L0004: JE L00,#05 [FALSE] L0005
PRINT "Five"
L0005: JE L00,#06 [FALSE] L0006
PRINT "Six"
L0006: JE L00,#07 [FALSE] L0007
PRINT "Seven"
L0007: JE L00,#08 [FALSE] L0008
PRINT "King"
L0008: JE L00,#09 [FALSE] L0009
PRINT "Queen"
L0009: JE L00,#0a [FALSE] L0010
PRINT "Knave"
L0010: RTRUE
Routine R0315, 3 locals
JE G08,#00 [FALSE] L0028
L0001: RANDOM #32 -> L02
JE L02,L00 [FALSE] L0002
JUMP L0001
L0002: JE L02,L01 [FALSE] L0003
JUMP L0001
L0003: JE L02,#01 [FALSE] L0004
PRINT "the Blank Card ("which I am forbidden to see")"
L0004: JE L02,#02 [FALSE] L0005
PRINT "the One-Eyed Merchant"
L0005: JE L02,#03 [FALSE] L0006
PRINT "the Sledging Girl"
L0006: JE L02,#04 [FALSE] L0007
PRINT "the Red Rock"
L0007: JE L02,#05 [FALSE] L0008
PRINT "the Stony Wastes"
L0008: JE L02,#06 [FALSE] L0009
PRINT "the Arch-Duke"
L0009: JE L02,#07 [FALSE] L0010
PRINT "the Hyacinths"
L0010: JE L02,#08 [FALSE] L0011
PRINT "the Wheel"
L0011: JE L02,#09 [FALSE] L0012
PRINT "Belladonna, the Lady of the Rocks"
L0012: JE L02,#0a [FALSE] L0013
PRINT "the Hypocrit Reader"
L0013: JE L02,#0b [FALSE] L0014
PRINT "the Golden Cupidon"
L0014: JE L02,#0c [FALSE] L0015
PRINT "the Candle-Flames"
L0015: JE L02,#0d [FALSE] L0016
PRINT "the Carved Dolphin"
L0016: JE L02,#0e [FALSE] L0017
PRINT "Philomel, the Barbarous King"
L0017: JE L02,#0f [FALSE] L0018
PRINT "the Lonely Typist"
L0018: JE L02,#10 [FALSE] L0019
PRINT "the Bradford Millionaire"
L0019: JE L02,#11 [FALSE] L0020
PRINT "Magnus, the Martyr"
L0020: JE L02,#12 [FALSE] L0021
PRINT "Phlebas, the Phoenician"
L0021: JE L02,#13 [FALSE] L0022
PRINT "the Woman with Long Black Hair"
L0022: JE L02,#14 [FALSE] L0023
PRINT "the Cicadas in the Pine Trees"
L0023: JL L02,#15 [FALSE] L0024
RET L02
L0024: JL L02,#1f [FALSE] L0025
SUB L02,#14 -> -(SP)
CALL_2N R0314 ((SP)+)
PRINT " of Staves"
RET L02
L0025: JE L02,#1f [FALSE] L0026
PRINT "Tiresias, the shape changer"
RET L02
L0026: JL L02,#29 [FALSE] L0027
SUB L02,#1e -> -(SP)
CALL_2N R0314 ((SP)+)
PRINT " of Cups"
RET L02
L0027: SUB L02,#28 -> -(SP)
CALL_2N R0314 ((SP)+)
PRINT " of Stones"
RET L02
RET L02
L0028: DEC G08
LOADB G07,G08 -> L02
INSERT_OBJ L02,"Consulting Room"
CALL_2N R0290 (L02)
RET L02
Routine R0316, 1 local
STOREB G07,G08,L00
INC G08
RTRUE
Routine R0317, 3 locals
PRINT "Madame Sosostris picks up the cards and deals them onto
the table. She frowns in concentration as "
CALL_VS R0315 (#00,#00) -> L00
PRINT ", "
CALL_VS R0315 (L00,#00) -> L01
PRINT " and then "
CALL_VS R0315 (L00,L01) -> L02
PRINT " show. "
JE L00,#d2 [FALSE] L0001
PRINT "She blanches with alarm, then recovers and jabbers
something about not taking the cards too literally, the images being symbolic
and so on. As rapidly as she possibly can, she warns you to fear death by water
and then hustles you out onto the street.
"
JUMP L0006
L0001: JE L00,#c1 [TRUE] L0002
JUMP L0005
L0002: JE L01,#c3 [TRUE] L0003
JUMP L0005
L0003: JE L02,#c2 [TRUE] L0004
JUMP L0005
L0004: PRINT ""You have come! At last, after all these centuries!
But there is little I can do to ease your way, save to return the staff you
left with me for safe keeping." And she shows you out. You feel rather
bewildered.
"
STORE L00,#d5
INSERT_OBJ L00,G03
SET_ATTR "Unreal City",#19
JUMP L0006
L0005: CALL_2N R0041 (#12)
PRINT ""Curse it, another nobody," she hisses in an unguarded
moment, as she tidies the pack absentmindedly with her hands. Then she recovers
her poise and advises about handsome strangers, fearing death by water,
crossing palms with gold and so on. Eventually she ushers you out.
"
L0006: REMOVE_OBJ G03
STORE G00,#c9
INSERT_OBJ G03,"Unreal City"
CALL_2N R0198 (#01)
RTRUE
Routine R0318, 0 locals
JE G4e,G03 [FALSE] L0001
STORE G05,#01
PRINT_RET "Oh dear. Like Mad Isaac before you, you have
spontaneously combusted!"
L0001: JE G4e,#0126 [FALSE] L0002
CALL_2N R0041 (#06)
PRINT_RET "You don't really want to vapourise Austin."
L0002: JE G4e,#0178 [FALSE] L0005
TEST_ATTR "adamantine skull",#19 [FALSE] L0003
TEST_ATTR "adamantine heart",#19 [FALSE] L0003
TEST_ATTR "adamantine hand",#19 [TRUE] L0004
L0003: PRINT_RET "The bones jerk and rattle, but seem unable to come
together into life."
L0004: REMOVE_OBJ "adamantine statue"
INSERT_OBJ "adamantine knight","West Side Chapel"
CALL_2N R0040 (#2a)
STORE G72,#0179
PRINT_RET "The adamantine knight leaps up, invigorated by the fire
in his skeletal eyes, a new spark in his belly! He bows gravely, in the
elaborate style of a mime artist."
L0005: JE G4e,#0179 [FALSE] L0006
PRINT_RET "Adamantine is fireproof."
L0006: JE G4e,#0146 [FALSE] L0007
PRINT_RET "The wood seems to have been treated somehow, and is
fireproof."
L0007: TEST_ATTR G4e,#04 [FALSE] L0008
PRINT_RET "For heaven's sake, you're only looking for an
out-of-date map. Murder does seem a little extreme."
L0008: JE G4e,#f3 [FALSE] L0010
TEST_ATTR "wall of thorns",#0a [FALSE] L0009
PRINT_RET "The wall wriggles in discomfort, but manages to avoid
further devastation."
L0009: SET_ATTR "wall of thorns",#0a
PRINT_RET "Fire leaps out from the rod into the heart of the thorn
wall, which screams out as it burns, revealing a great hole through the wild
flames. You catch a tantalising glimpse of a great Temple, before the wall
heals back. But it is unable to recover entirely, and a charred gap is left to
the south. You could probably squeeze through it."
L0010: TEST_ATTR G4e,#0e [FALSE] L0011
JUMP L0015
L0011: TEST_ATTR G4e,#0f [FALSE] L0012
JUMP L0015
L0012: JE G4e,#35 [FALSE] L0013
PRINT "The melting point of this glass is very high, and
amazingly it withstands the bolt of fire.
"
CALL_1N R0313
RFALSE
L0013: JE G4e,#e0,#e1 [FALSE] L0014
STORE G05,#01
PRINT_RET "(Perhaps predictably) the bomb explodes!"
L0014: REMOVE_OBJ G4e
PRINT "A bolt of fire leaps from the rod and consumes "
CALL_2N R0290 (G4e)
PRINT_RET " utterly!"
L0015: STORE G05,#01
PRINT_RET "You start a great conflagration, and then perish in
it!"
Routine R0319, 0 locals
JE G4e,G03 [FALSE] L0001
PRINT_RET "You feel a sudden chill."
L0001: TEST_ATTR G4e,#04 [FALSE] L0002
PRINT "For an extremely brief moment, "
CALL_2N R0290 (G4e)
PRINT_RET " freezes up."
L0002: JE G4e,#17,#18,#19 [FALSE] L0004
TEST_ATTR G4e,#19 [FALSE] L0003
PRINT_RET "It's already cold."
L0003: SET_ATTR G4e,#19
PRINT_RET "There is an enormous hissing of steam, creating wildly
swirling mists, after whose parting an apparently cool rod is left behind."
L0004: PRINT_RET "Nothing obvious happens."
Routine R0320, 2 locals
JE G4e,G03 [TRUE] L0001
PRINT_RET "Nothing obvious happens."
L0001: JE G00,#a8 [FALSE] L0002
STORE G00,G28
REMOVE_OBJ G03
INSERT_OBJ G03,G27
REMOVE_OBJ "glowing golden orb"
INSERT_OBJ "glowing golden orb",G03
PRINT "Although nothing seems to happen to you, the whole
golden sphere gracefully contracts, pulling itself tight until it sits
comfortably in the palm of your hand. You blink.
"
CALL_2N R0198 (#01)
RTRUE
L0002: CALL_1N R0423
PRINT "You are engulfed in a cloud of spinning white lights,
like insects. When the swarm clears, you find yourself transported...
"
JE G06,#07 [FALSE] L0003
STORE L01,#7b
STORE L00,#1c
REMOVE_OBJ L00
L0003: JE G06,#07 [TRUE] L0007
RANDOM #04 -> L00
STORE L01,#1d
JE L00,#02 [FALSE] L0004
STORE L01,#2e
L0004: JE L00,#03 [FALSE] L0005
STORE L01,#61
L0005: JE L00,#04 [FALSE] L0006
STORE L01,#37
L0006: JE G1d,#01 [FALSE] L0007
STORE L01,#1d
L0007: STORE G06,#01
REMOVE_OBJ G03
INSERT_OBJ G03,L01
STORE G00,L01
CALL_1N R0198
RTRUE
Routine R0321, 0 locals
JE G4e,G03 [FALSE] L0001
PRINT_RET "You feel suddenly obedient, and briefly fancy a dog
biscuit."
L0001: JE G4e,#0126 [FALSE] L0002
PRINT_RET "Alas, Austin is far, far too undomesticated. It has no
effect."
L0002: JE G4e,#0148 [FALSE] L0003
PRINT_RET "Guided by some animal sixth sense, the squirrel
gracefully jumps out of the way."
L0003: JE G4e,#f1 [TRUE] L0004
PRINT_RET "Nothing obvious happens."
L0004: SET_ATTR "herd of goats",#19
CALL_2N R0041 (#18)
PRINT_RET "The goats suddenly look up at you with awe, although
they resume their former interest in eating the grass quite quickly."
Routine R0322, 0 locals
JE G4e,G03 [FALSE] L0001
PRINT_RET "You acquire a sudden sun tan, but it soon fades."
L0001: JE G4e,#0126 [FALSE] L0002
PRINT_RET "Austin is already ginger, which is near enough."
L0002: JE G4e,#0179 [FALSE] L0003
PRINT_RET "He shrugs it off. (Isn't adamantine impressive enough
for you?)"
L0003: JE G4e,#a4 [FALSE] L0004
SET_ATTR "metal wall",#0a
PRINT_RET "At once, the bronze polishes up to the shine of a
mirror."
L0004: JE G4e,#9d [TRUE] L0005
PRINT_RET "Nothing obvious happens."
L0005: TEST_ATTR "bronze mural",#0a [FALSE] L0006
PRINT_RET "Nothing further happens."
L0006: SET_ATTR "bronze mural",#0a
PRINT_RET "With an awful heaving, wrenching noise, the mural
slides a little sideways, opening up a murky downward passage which can't have
been used for centuries."
Routine R0323, 0 locals
JE G4e,G03 [FALSE] L0002
TEST_ATTR "big electrician's switch",#18 [FALSE] L0001
PRINT_RET "You feel no different. Perhaps there's no such thing as
luck."
L0001: SET_ATTR G4d,#19
PRINT_RET "You feel optimistic and lucky. Mind you, you feel that
most times."
L0002: JE G4e,#0126 [FALSE] L0003
PRINT_RET "Austin is already too lucky by half."
L0003: JE G4e,#0179 [FALSE] L0004
PRINT_RET "Reassembled after all these years... how lucky can you
get?"
L0004: JE G4e,#01c6 [FALSE] L0005
SET_ATTR "gambling sailor",#22
PRINT_RET "The sailor shudders suddenly."
L0005: JE G4e,#01c7 [FALSE] L0006
SET_ATTR "inscribed die",#22
PRINT_RET "The die rattles a little, then settles."
L0006: PRINT_RET "Nothing obvious happens."
Routine R0324, 0 locals
JE G4e,#f1 [FALSE] L0001
PRINT_RET "Still obedient to your intent, the goats part so that
one stands alone. Using this Rod, you vapourise it instantaneously, and the
rest contentedly return.
Do you think there might be a moral to draw here about the use, and abuse, of
power?"
L0001: JE G4e,#0126 [FALSE] L0002
CALL_2N R0041 (#06)
PRINT_RET "You don't really want to sacrifice Austin."
L0002: JE G4e,#0179 [FALSE] L0003
PRINT_RET "Would be a shame, after all that surgery."
L0003: TEST_ATTR G4e,#06 [FALSE] L0004
REMOVE_OBJ G4e
PRINT "You decide you can manage without "
CALL_2N R0290 (G4e)
PRINT_RET ", which you annihilate with the Rod."
L0004: JE G00,#a8 [FALSE] L0006
JE G4e,#a9 [FALSE] L0006
TEST_ATTR "Inside the Orb",#19 [TRUE] L0005
STORE G05,#09
PRINT_RET "The Black pieces make a rash break out of their
defences, sacrificing a piece in vain and going down to a rapid defeat as a
result.
The White Queen rises from the board, an avenging angel's smile on her face,
and swings a broadsword of burning light across your body..."
L0005: STORE G00,G28
REMOVE_OBJ G03
INSERT_OBJ G03,G27
REMOVE_OBJ "glowing golden orb"
INSERT_OBJ "glowing golden orb",G03
SET_ATTR "glowing golden orb",#19
CALL_2N R0040 (#11)
PUT_PROP "glowing golden orb",#02,S1024
PRINT "The White pieces advance: first a bishop, then a knight
is sacrificed, clearing away the wall of pawns which surround the Black king so
that a dazzling checkmate can be executed!
You fade out of the orb as oddly as you came, struck by the way it now almost
pulsates in your palm.
"
CALL_2N R0198 (#01)
RTRUE
L0006: JE G4e,G03 [FALSE] L0007
STORE G05,#01
PRINT_RET "You feel a noble surge of pride as your body is
incinerated by the Rod. At least you died for some terribly important cause,
although exactly what it was seems to have slipped your mind."
L0007: PRINT_RET "Nothing obvious happens."
Routine R0325, 0 locals
JE G4e,G03 [FALSE] L0001
STORE G1c,#01
PRINT_RET "Nothing obvious happens. You curse eloquently in
Celtic."
L0001: JE G4e,#dd [FALSE] L0002
PRINT_RET "Nice idea. Now the kiosk-keeper also knows a smattering
of Celtic. Unfortunately his national pride is too strong. You'll have to try
something else - at least you have carte blanche to solve this problem."
L0002: PRINT_RET "Nothing obvious happens."
Routine R0326, 0 locals
JE G4e,#0179 [FALSE] L0001
PRINT_RET "The knight jumps on the spot (landing loudly)."
L0001: JE G4e,#9b [FALSE] L0002
PRINT_RET "The marble jerks, as if straining to grow, but falls
back dead."
L0002: JE G4e,#f8 [FALSE] L0004
GET_PARENT "fig" -> -(SP)
JE (SP)+,#00 [TRUE] L0003
PRINT_RET "The tree tried hard, but in the end it couldn't give a
fig."
L0003: INSERT_OBJ "fig",G03
PRINT_RET "The tree strains especially hard, and manages to
produce another fig, which ripens and falls... you jump forward and catch the
fruit just before it would splatter to earth."
L0004: JE G4e,G03 [FALSE] L0005
PRINT_RET "Your hair stands momentarily on end, as if it wants to
stalk up out of your head, but happily it decides against."
L0005: JE G4e,#0d [FALSE] L0006
JE G00,#8f [FALSE] L0006
PRINT_RET "The tree shakes and shivers, but thankfully remains
intact."
L0006: JE G4e,#f3 [FALSE] L0007
PRINT_RET "Whoosh!
The thorn wall grows another twenty feet high, then collapses in on itself,
settling back like a beast. It is thicker and nastier than ever."
L0007: JE G4e,#94 [TRUE] L0008
PRINT_RET "Nothing obvious happens."
L0008: TEST_ATTR "runner-bean plant",#0a [FALSE] L0009
PRINT_RET "Nothing further happens."
L0009: SET_ATTR "runner-bean plant",#0a
PRINT "
Warning: something extremely cliched is about to happen. When you think you
have composed yourself and can stand it, press ENTER. "
PRINT_CHAR '>'
STOREB G47,#01,#00
CALL_1N R0159
READ G47,G48 -> Gef
NEW_LINE
PRINT_RET "Suddenly an enormous beanstalk sprouts out of the
ground, exactly as per fairy tale, reaching up high into the sky! You yawn
convulsively."
Routine R0327, 0 locals
PRINT_RET "You are knocked off your feet with the power of one of
the High Rods, but it is too puissant for a mortal such as you are."
Routine R0328, 2 locals
JE G4e,#0179 [FALSE] L0001
PRINT_RET "Oh, the knight has been nearer the infinite than you
could ever take him."
L0001: JE G4e,G03 [FALSE] L0002
PRINT_RET "You acquire no especial sense of the infinite."
L0002: JE G00,#7b [TRUE] L0003
PRINT_RET "Nothing obvious happens."
L0003: JE G4e,#0d [TRUE] L0004
PRINT_RET "Nothing obvious happens."
L0004: STORE L00,#7c
GET_PROP L00,#15 -> L01
CALL_2N R0041 (#1e)
JL L01,#09 [FALSE] L0005
PRINT_RET "You feel the air charge with excitement, and the symbol
glows fiercely gold for a moment, but then the power drains away into one of
the empty sockets in the arc."
L0005: TEST_ATTR G4d,#19 [FALSE] L0006
PRINT_RET "Nothing happens this time."
L0006: PRINT "The air charges with excitement, and the symbol glows
fiercely gold, then begins to spin, faster and faster into a pearly golden
light with bathes you with the flow of pure magic. "
TEST_ATTR "spherical opening",#19 [TRUE] L0007
PRINT_RET "But it is still too weak! You half-hear, half-imagine
the whisper of the Curses -
"You are not yet ready to face us, accursed mortal!""
L0007: PRINT "Everything becomes a daze and then you find yourself...
"
SET_ATTR G4d,#19
CALL_1N R0329
RTRUE
Routine R0329, 2 locals
Action routine for:
"xmaster"
STORE G06,#07
GET_CHILD G03 -> L00 [TRUE] L0001
L0001: CLEAR_ATTR "daisy chain",#02
L0002: JE L00,#00 [TRUE] L0004
GET_SIBLING L00 -> L01 [TRUE] L0003
L0003: CLEAR_ATTR L00,#02
REMOVE_OBJ L00
INSERT_OBJ L00,"Infinity Symbol"
STORE L00,L01
JUMP L0002
L0004: STORE G00,#ff
REMOVE_OBJ G03
INSERT_OBJ G03,"Murky Cave"
STORE L00,#0101
INSERT_OBJ L00,G03
CALL_1N R0198
RTRUE
Routine R0330, 1 local
STORE L00,#de
GET_PARENT L00 -> L00
JE L00,G03 [FALSE] L0001
STORE G05,#02
PRINT_RET "You have succeeded in shaking off the Curse of the
Meldrews: for the first time in sixty generations, a Meldrew has found the
useless object he was doomed to seek! Unfortunately on the way to the airport
you realise that you left the map on the kitchen table in all the rush, but
never mind, you're on holiday now."
L0001: STORE G05,#03
PRINT_RET "Yes, probably just as well to give up looking, and
heaven knows there's enough packing to do, what with the rest of the family in
uproar. Oh well."
Routine R0331, 0 locals
JE G4c,#17 [TRUE] L0001
RFALSE
L0001: TEST_ATTR "Old Winery",#19 [FALSE] L0002
RFALSE
L0002: PRINT "
As you disturb the still air, the attic key, which was balanced on top of the
demijohn, slips onto the floor and disappears into a crack in the floorboards.
Your spirits sink as it does, rattling down some distance. How on earth are you
going to get it back?
"
SET_ATTR "Old Winery",#19
RTRUE
Routine R0332, 2 locals
JE G4c,#13 [FALSE] L0001
STORE L00,#26
GET_PROP L00,#15 -> L01
JG L01,#03 [FALSE] L0001
PUT_PROP L00,#15,#03
L0001: RFALSE
Routine R0333, 1 local
JE G4c,#08 [FALSE] L0003
JE G4e,#4f [FALSE] L0003
REMOVE_OBJ G4d
INSERT_OBJ G4d,"Priest's Hole"
TEST_ATTR "sooty old stick",#06 [TRUE] L0001
STORE L00,#57
REMOVE_OBJ L00
INSERT_OBJ L00,"Priest's Hole"
SET_ATTR "sooty old stick",#06
L0001: JE G4d,#35 [FALSE] L0002
TEST_ATTR " ",#16 [FALSE] L0002
CLEAR_ATTR " ",#06
PUT_PROP " ",#04,S1025
L0002: PRINT_RET "It rattles out of sight down the chimney."
L0003: RFALSE
Routine R0334, 0 locals
JE G4c,#08 [FALSE] L0001
JE G4e,#0d [FALSE] L0001
REMOVE_OBJ G4d
INSERT_OBJ G4d,"hanging cord"
CALL_1N R0248
PRINT_RET "It plummets down into the well."
L0001: RFALSE
Routine R0335, 1 local
JE G4c,#08 [FALSE] L0003
JE G4e,#68 [FALSE] L0003
REMOVE_OBJ G4d
INSERT_OBJ G4d,"dumbwaiter"
STORE L00,#67
GET_PARENT L00 -> L00
JE L00,G00 [FALSE] L0001
PRINT_RET "Put on the dumbwaiter."
L0001: JE G4d,#35 [FALSE] L0002
CLEAR_ATTR " ",#16
SET_ATTR " ",#0a
CALL_1N R0030
PRINT_RET "It disappears into the darkness, and there is a slight
cracking noise."
L0002: PRINT_RET "It disappears into the darkness."
L0003: RFALSE
Routine R0336, 1 local
JE G4c,#04 [FALSE] L0002
JE G4d,#65,#67 [FALSE] L0002
STORE L00,#67
GET_PARENT L00 -> L00
JE L00,#65 [FALSE] L0001
STORE G4d,#67
RFALSE
L0001: PRINT_RET "But you suffer from vertigo. Even the thought of the
plane journey tomorrow is nerve-wracking."
L0002: RFALSE
Routine R0337, 1 local
JE G4c,#04 [FALSE] L0002
JE G4d,#72 [FALSE] L0002
STORE L00,#67
GET_PARENT L00 -> L00
JE L00,#70 [FALSE] L0001
STORE G4d,#67
RFALSE
L0001: PRINT_RET "No, don't. There's nothing there and it's nasty and
dirty. Bring the dumbwaiter down instead."
L0002: RFALSE
Routine R0338, 0 locals
JE G4c,#00 [FALSE] L0001
PRINT_RET "Far, far too dangerous to contemplate. Besides, you're
a coward."
L0001: RFALSE
Routine R0339, 1 local
JE G4c,#13 [FALSE] L0007
JE G4d,#0b [FALSE] L0006
GET_CHILD G03 -> L00 [TRUE] L0001
L0001: JE L00,#00 [TRUE] L0005
TEST_ATTR L00,#02 [FALSE] L0002
JE L00,#4a [FALSE] L0003
L0002: PRINT_RET "It's too narrow a squeeze for you at present."
L0003: GET_SIBLING L00 -> L00 [TRUE] L0004
L0004: JUMP L0001
L0005: PRINT "You squeeze awkwardly down the chimney. Lucky your best
clothes are all packed, because you're getting filthy.
"
RFALSE
L0006: RFALSE
L0007: JE G4c,#01,#17 [FALSE] L0008
RFALSE
L0008: PRINT_RET "There's not enough room in this confined space to do
anything much!"
Routine R0340, 1 local
JE G4c,#04 [FALSE] L0001
JE G4d,#59 [FALSE] L0001
JUMP L0005
L0001: JE G4c,#13 [FALSE] L0006
JE G4d,#0a [FALSE] L0004
GET_CHILD G03 -> L00 [TRUE] L0002
L0002: JE L00,#00 [TRUE] L0003
PRINT_RET "It's too narrow a squeeze for you at present."
L0003: PRINT "You squeeze awkwardly back up the chimney."
RFALSE
L0004: JE G4d,#0b [FALSE] L0006
L0005: TEST_ATTR "hatch",#0a [FALSE] L0006
PRINT "You zoom rapidly down the chute, but decelerate just in
time and land in a dark corner of...
"
RFALSE
L0006: RFALSE
Routine R0341, 0 locals
JE G4c,#02 [FALSE] L0001
TEST_ATTR "big iron fireplace",#01 [FALSE] L0001
CLEAR_ATTR "big iron fireplace",#01
PRINT_RET "Taken. (There's a fireplace behind it, by the way.)"
L0001: RFALSE
Routine R0342, 0 locals
JE G4c,#17 [FALSE] L0001
TEST_ATTR "Dark Room",#00 [FALSE] L0001
PRINT "
The room is filled with an eerie, reddish light. You feel gloomy and can't help
thinking about aviation accident statistics.
"
L0001: RFALSE
Routine R0343, 0 locals
JE G4c,#17 [FALSE] L0001
GET_PARENT "dumbwaiter" -> -(SP)
JE (SP)+,#6c [TRUE] L0001
PRINT "
Since the dumbwaiter isn't here, the best you can do is clamber down the shaft
to the cellars.
"
L0001: RFALSE
Routine R0344, 0 locals
JE G4c,#13 [FALSE] L0001
JE G4d,#0b [FALSE] L0001
GET_PARENT "dumbwaiter" -> -(SP)
JE (SP)+,#6c [FALSE] L0001
PRINT_RET "Since the dumbwaiter is here, why not travel in that
instead."
L0001: RFALSE
Routine R0345, 0 locals
JE G4c,#18 [FALSE] L0002
JE G00,#38 [FALSE] L0001
TEST_ATTR "Dark Room",#00 [FALSE] L0001
CALL_2N R0040 (#00)
PRINT_RET "
No... wait. The eerie lamp-light is bringing out a message in invisible ink:
Hamburg 1420
Ticket 7.-
The seven is crossed through in continental fashion."
JUMP L0002
L0001: CALL_2N R0041 (#1f)
L0002: RFALSE
Routine R0346, 2 locals
STORE L00,#3b
STORE L01,#00
GET_CHILD L00 -> L00 [TRUE] L0001
L0001: JE L00,#00 [TRUE] L0002
GET_SIBLING L00 -> L01 [TRUE] L0002
L0002: MUL L00,L01 -> -(SP)
JE #00,(SP)+ [TRUE] L0003
PRINT_RET "The flash is full already."
L0003: JE G4d,#47 [FALSE] L0004
JUMP L0008
L0004: JE G4d,#26 [FALSE] L0005
JUMP L0008
L0005: JE G4d,#63 [FALSE] L0006
JUMP L0008
L0006: JE G4d,#e1 [TRUE] L0007
PRINT_RET "Only batteries and timers will fit in."
L0007: RFALSE
L0008: JE L00,#47 [FALSE] L0009
JUMP L0012
L0009: JE L00,#26 [FALSE] L0010
JUMP L0012
L0010: JE L00,#63 [FALSE] L0011
JUMP L0012
L0011: RFALSE
L0012: PRINT_RET "There is already a battery inside, and there's only
room now for a timer."
Routine R0347, 1 local
STORE L00,#25
GET_CHILD L00 -> L00 [TRUE] L0001
L0001: JE L00,#00 [TRUE] L0002
PRINT_RET "There's a battery in already."
L0002: JE G4d,#47 [FALSE] L0003
RFALSE
L0003: JE G4d,#26 [FALSE] L0004
RFALSE
L0004: JE G4d,#63 [FALSE] L0005
RFALSE
L0005: PRINT_RET "Not surprisingly, it won't fit in the battery
compartment."
Routine R0348, 1 local
JE G4c,#21 [FALSE] L0003
TEST_ATTR "electric torch",#00 [FALSE] L0001
PRINT "The torch goes out as you open the battery compartment.
"
L0001: TEST_ATTR "electric torch",#00 [TRUE] L0002
PRINT "You open the battery compartment of the torch.
"
L0002: CLEAR_ATTR "electric torch",#00
RTRUE
L0003: JE G4c,#23 [FALSE] L0011
STORE L00,#25
GET_CHILD L00 -> L00 [TRUE] L0004
L0004: PRINT "You close the battery compartment of the torch"
JE L00,#47 [FALSE] L0005
CALL_2N R0040 (#01)
JUMP L0008
L0005: JE L00,#63 [FALSE] L0007
JE G06,#01 [FALSE] L0006
STORE G05,#03
PRINT_RET ", and it explodes with light, becomes hot enough to
melt, falls to the floor, catches fire and burns down most of the attic...
It may be some consolation that since you spend your holiday in the local
hospital burns unit, you are never inconvenienced much by not finding the map."
JUMP L0007
L0006: REMOVE_OBJ "electric torch"
PRINT_RET ", and it explodes with light, becomes hot enough to
melt, falls from your grasp and perishes away to nothing."
L0007: JE L00,#26 [TRUE] L0008
PRINT_RET "."
L0008: GET_PROP L00,#15 -> L00
JE L00,#00 [FALSE] L0009
PRINT_RET ", but the battery must be dead because nothing
happens."
L0009: SET_ATTR "electric torch",#00
JG L00,#05 [FALSE] L0010
PRINT_RET ", and it lights up brightly."
L0010: PRINT_RET ", and it lights up feebly."
RTRUE
L0011: RFALSE
Routine R0349, 0 locals
JE G4c,#39 [FALSE] L0002
PRINT "Click! "
TEST_ATTR "Dark Room",#00 [FALSE] L0001
CLEAR_ATTR "Dark Room",#00
REMOVE_OBJ "red lamp"
PRINT_RET "The lamp goes out."
L0001: SET_ATTR "Dark Room",#00
INSERT_OBJ "red lamp","Dark Room"
PRINT_RET "A developing lamp comes on, emitting an eerie red
light."
L0002: RFALSE
Routine R0350, 1 local
JE G4c,#18 [TRUE] L0001
RFALSE
L0001: TEST_ATTR "solid glass ball",#19 [TRUE] L0002
PRINT_RET "The ball is scratched and misted up."
L0002: CALL_2N R0041 (#20)
RANDOM #0c -> L00
PRINT "In the ball mists swirl, then part to show "
JE L00,#01 [FALSE] L0003
PRINT_RET "a reflection of your face."
L0003: JE L00,#02 [FALSE] L0004
PRINT_RET "a dizzying aerial view of Meldrew Hall gardens."
L0004: JE L00,#03 [FALSE] L0005
PRINT_RET "confused pictures of a tree being planted."
L0005: JE L00,#04 [FALSE] L0006
PRINT_RET "an image of a typist, home from work and wandering
about her bedsit room."
L0006: JE L00,#05 [FALSE] L0007
PRINT_RET "a dark picture of a museum display case."
L0007: JE L00,#06 [FALSE] L0008
PRINT_RET "an Old Master painting, perhaps a Watteau, of a scene
from classical mythology."
L0008: JE L00,#07 [FALSE] L0009
PRINT_RET "an oddly-angled view of a Roman villa half in ruins."
L0009: JE L00,#08 [FALSE] L0010
PRINT_RET "a flickery view of faces round a camp fire."
L0010: JE L00,#09 [FALSE] L0011
PRINT_RET "a dark, spooky view of a crypt."
L0011: JE L00,#0a [FALSE] L0012
PRINT_RET "a dreamy, enclosed view of somewhere half-familiar."
L0012: JE L00,#0b [FALSE] L0013
PRINT_RET "a sketch of a great marble palace."
L0013: JE L00,#0c [FALSE] L0014
PRINT_RET "a vision of English countryside."
L0014: RTRUE
Routine R0351, 0 locals
JE G4c,#22 [FALSE] L0001
CLEAR_ATTR "coal bunker",#16
L0001: JE G4c,#42 [FALSE] L0002
SET_ATTR "coal bunker",#16
L0002: JE G4c,#21 [FALSE] L0003
SET_ATTR "coal bunker",#0a
L0003: JE G4c,#23 [FALSE] L0004
CLEAR_ATTR "coal bunker",#0a
L0004: RFALSE
Routine R0352, 0 locals
JE G4c,#22 [FALSE] L0001
CLEAR_ATTR "metal door",#16
L0001: JE G4c,#42 [FALSE] L0002
SET_ATTR "metal door",#16
L0002: JE G4c,#21 [FALSE] L0003
SET_ATTR "metal door",#0a
L0003: JE G4c,#23 [FALSE] L0004
CLEAR_ATTR "metal door",#0a
L0004: RFALSE
Routine R0353, 2 locals
JE G4c,#39 [FALSE] L0005
GET_PARENT G03 -> L00
JE L00,#67 [TRUE] L0001
PRINT_RET "You can't reach them!"
L0001: CALL_2N R0040 (#05)
JE G00,#65 [FALSE] L0002
STORE L01,#70
PRINT "You begin moving, and then plummet, but friction
gradually slows you down and you land without too much of a thump...
"
L0002: JE G00,#6c [FALSE] L0003
STORE L01,#65
PRINT "You heave yourself up to the attic again...
"
L0003: JE G00,#70 [FALSE] L0004
STORE L01,#6c
PRINT "You heave yourself half-way up, and then need to stop
for a rest.
"
L0004: STORE L00,#67
REMOVE_OBJ L00
INSERT_OBJ L00,L01
STORE G00,L01
CALL_1N R0198
RTRUE
L0005: JE G4c,#52 [FALSE] L0006
PRINT_RET "If only you didn't suffer from such dreadful
vertigo..."
L0006: RFALSE
Routine R0354, 0 locals
JE G4c,#43,#3b,#39 [FALSE] L0002
TEST_ATTR "windows",#0a [FALSE] L0001
RFALSE
L0001: SET_ATTR "windows",#0a
PRINT_RET "The windows suddenly give way in a shower of flakes of
paint, letting fresh summer air into the room!"
L0002: RFALSE
Routine R0355, 0 locals
JE G4c,#43 [FALSE] L0001
PRINT_RET "You become extremely violent in your attempt, but the
glass resists all attacks. Whatever would it take to break the dratted thing?"
L0001: JE G4c,#21 [FALSE] L0003
TEST_ATTR " ",#16 [TRUE] L0002
RFALSE
L0002: PRINT_RET "You try absolutely everything. Pushing the top down,
turning it, pulling it, putting it on the floor and jumping up and down on it,
everything. It is resolutely adult-proof. Whatever would it take to break the
dratted thing?"
L0003: RFALSE
Routine R0356, 0 locals
JE G4c,#21 [FALSE] L0001
SET_ATTR "hinged trapdoor",#00
RFALSE
L0001: JE G4c,#23 [FALSE] L0003
CLEAR_ATTR "hinged trapdoor",#00
TEST_ATTR "antique jewellery box",#01 [FALSE] L0002
CLEAR_ATTR "antique jewellery box",#01
INSERT_OBJ "antique jewellery box","Attic"
PRINT_RET "You close the trapdoor, surprised to see that something
shiny was obscured by it."
L0002: PRINT_RET "You close the trapdoor once more. No more jewellery
boxes though."
L0003: RFALSE
Routine R0357, 0 locals
JE G4c,#21 [FALSE] L0002
TEST_ATTR "old gardeners' gloves",#02 [TRUE] L0001
PRINT_RET "Your hands slip on the screw-top of the demijohn and
can't get a grip."
L0001: CALL_2N R0040 (#04)
L0002: JE G4c,#43 [FALSE] L0003
PRINT_RET "The demijohn is made of something like industrial-grade
chemistry glass. You kick it and hurt your foot."
L0003: RFALSE
Routine R0358, 1 local
JE G4c,#21 [FALSE] L0001
STORE L00,#31
REMOVE_OBJ L00
STORE L00,#34
INSERT_OBJ L00,G03
STORE L00,#32
INSERT_OBJ L00,G03
STORE L00,#33
INSERT_OBJ L00,G00
PRINT_RET "You tear open the parcel to find a box of chocolates
and a card."
L0001: RFALSE
Routine R0359, 1 local
JE G4c,#02 [FALSE] L0002
TEST_ATTR "gothic-looking iron key",#19 [FALSE] L0001
RFALSE
L0001: CLEAR_ATTR "Sir Joshua Meldrewe",#01
STORE L00,#54
REMOVE_OBJ L00
INSERT_OBJ L00,"Sir Joshua Meldrewe"
STORE L00,#55
PUT_PROP L00,#15,#05
PRINT_RET "As you reach for the key, a swirling mist condenses
about it, into a ghostly head which opens its mouth and eats up the key! The
rest of the ghostly body solidifies about the head and rises to swagger before
you."
L0002: RFALSE
Routine R0360, 1 local
JE G4c,#13 [FALSE] L0001
GET_PARENT "daisy chain" -> -(SP)
JE (SP)+,#00 [FALSE] L0001
JE G46,#01 [FALSE] L0001
SET_ATTR "Jemima",#19
PRINT "
"Oh, silly old you," says Jemima condescendingly, "You've lost your daisy
chain! What colour do you want then?"
"
L0001: JE G4c,#17 [FALSE] L0002
TEST_ATTR "antiquated wireless",#19 [FALSE] L0002
STORE L00,#82
GET_PARENT L00 -> L00
JE L00,#7e [FALSE] L0002
PRINT "
Execrable music drifts in from the conservatory.
"
L0002: RFALSE
Routine R0361, 0 locals
JE G4c,#02 [FALSE] L0002
TEST_ATTR "old gardeners' gloves",#06 [TRUE] L0002
TEST_ATTR "antiquated wireless",#19 [FALSE] L0001
RFALSE
L0001: STORE G05,#03
PRINT_RET "Aunt Jemima suddenly hears you, spins round to see you
filching her gloves and screeches with irritation, eventually summoning the
entire family. You volunteer to shift some suitcases about just to get away
from her."
L0002: RFALSE
Routine R0362, 1 local
JE G4c,#18 [FALSE] L0014
STORE L00,#7f
GET_PROP L00,#15 -> L00
PRINT "The calendar is turned to "
L0001: JE L00,#00 [FALSE] L0002
PRINT "January"
L0002: JE L00,#01 [FALSE] L0003
PRINT "February"
L0003: JE L00,#02 [FALSE] L0004
PRINT "March"
L0004: JE L00,#03 [FALSE] L0005
PRINT "April"
L0005: JE L00,#04 [FALSE] L0006
PRINT "May"
L0006: JE L00,#05 [FALSE] L0007
PRINT "June"
L0007: JE L00,#06 [FALSE] L0008
PRINT "July"
L0008: JE L00,#07 [FALSE] L0009
PRINT "August"
L0009: JE L00,#08 [FALSE] L0010
PRINT "September"
L0010: JE L00,#09 [FALSE] L0011
PRINT "October"
L0011: JE L00,#0a [FALSE] L0012
PRINT "November"
L0012: JE L00,#0b [FALSE] L0013
PRINT "December"
L0013: PRINT " and a watercolour painting of some "
CALL_2N R0364 (L00)
PRINT_RET " daisies."
L0014: JE G4c,#3d [FALSE] L0016
STORE L00,#7f
GET_PROP L00,#15 -> L00
INC L00
JE L00,#0c [FALSE] L0015
STORE L00,#00
L0015: PUT_PROP "daisy calendar",#15,L00
PRINT "You turn over to "
JUMP L0001
L0016: RFALSE
Routine R0363, 1 local
JE G4c,#18 [FALSE] L0001
STORE L00,#86
GET_PROP L00,#15 -> L00
PRINT "A delicate, pretty chain of "
CALL_2N R0364 (L00)
PRINT_RET " daisies."
L0001: JE G4c,#09 [FALSE] L0002
STORE L00,#86
REMOVE_OBJ L00
PRINT_RET "The daisychain falls to pieces in your hands!"
L0002: RFALSE
Routine R0364, 1 local
JE L00,#00 [FALSE] L0001
PRINT "speckled Jemima's Pride"
L0001: JE L00,#01 [FALSE] L0002
PRINT "yellowish Merlyn's Hat"
L0002: JE L00,#02 [FALSE] L0003
PRINT "blue-tinted bell"
L0003: JE L00,#03 [FALSE] L0004
PRINT "heavy-headed Dorset Pride"
L0004: JE L00,#04 [FALSE] L0005
PRINT "reddish meadow-heart"
L0005: JE L00,#05 [FALSE] L0006
PRINT "wild white common"
L0006: JE L00,#06 [FALSE] L0007
PRINT "green-edged hedgerow"
L0007: JE L00,#07 [FALSE] L0008
PRINT "plain Russian Steppe"
L0008: JE L00,#08 [FALSE] L0009
PRINT "tall-stemmed Breton"
L0009: JE L00,#09 [FALSE] L0010
PRINT "orange meadow"
L0010: JE L00,#0a [FALSE] L0011
PRINT "short-leaved Meldrew"
L0011: JE L00,#0b [FALSE] L0012
PRINT "tiny bonsai"
L0012: RTRUE
Routine R0365, 0 locals
JE G4c,#46 [FALSE] L0001
RFALSE
L0001: TEST_ATTR G03,#19 [FALSE] L0002
CALL_2S R0036 (#c5) -> -(SP)
JG #05,(SP)+ [FALSE] L0002
PRINT_RET "You seem to lack the will any more. The drug must have
taken hold."
L0002: RFALSE
Routine R0366, 0 locals
JE G4c,#02 [FALSE] L0001
PRINT_RET "It's a wrench, but you take it."
L0001: RFALSE
Routine R0367, 0 locals
STORE G05,#03
PRINT_RET "As you pull the book away, the pipe bursts and sprays
water everywhere, drenching you, rendering the book unreadable, leaking through
the ceiling into the bedrooms below and causing an enormous furore. You are
obliged to spend the rest of the afternoon getting a plumber at short notice."
Routine R0368, 1 local
JE G4c,#02 [FALSE] L0001
TEST_ATTR "steel wrench",#19 [TRUE] L0001
CALL_1N R0367
RTRUE
L0001: JE G4c,#18 [FALSE] L0004
TEST_ATTR "steel wrench",#19 [TRUE] L0002
PRINT_RET "You can't read it while it's holding the pipe up."
L0002: JE G00,#0c [FALSE] L0003
PRINT_RET "1920s poetry may be literarily enlightening, but not
literally. It is, in fact, too dark to make out the print."
L0003: PRINT "Publishers talk a lot of nonsense about readers being
transported away by books, but somehow you have arrived in the...
"
STORE L00,#41
REMOVE_OBJ L00
INSERT_OBJ L00,G00
STORE G06,#02
STORE G00,#c9
REMOVE_OBJ G03
INSERT_OBJ G03,"Unreal City"
CALL_1N R0198
RTRUE
L0004: RFALSE
Routine R0369, 0 locals
JE G4c,#02 [FALSE] L0001
TEST_ATTR "steel wrench",#19 [TRUE] L0001
CALL_1N R0367
RTRUE
L0001: JE G4c,#18 [FALSE] L0003
TEST_ATTR "steel wrench",#19 [TRUE] L0002
PRINT_RET "You can't read it while it's holding the pipe up."
L0002: CALL_2N R0041 (#23)
L0003: RFALSE
Routine R0370, 1 local
CALL_1S R0371 -> L00
RET L00
Routine R0371, 1 local
JE G4c,#3d [FALSE] L0008
GET_PARENT G03 -> L00
JE L00,#67 [FALSE] L0001
PRINT_RET "If you could only reach the wheel from here..."
L0001: TEST_ATTR G4d,#18 [FALSE] L0002
PRINT_RET "It won't turn. Perhaps it's broken, or perhaps only
rusty."
L0002: PRINT "It spins round smoothly, and the dumbwaiter is hoisted
"
STORE L00,#67
GET_PARENT L00 -> L00
JE L00,G00 [FALSE] L0003
PRINT "away out of sight."
L0003: JE L00,G00 [TRUE] L0004
PRINT "into view. "
GET_PARENT " " -> -(SP)
JE (SP)+,#72 [FALSE] L0004
TEST_ATTR " ",#16 [FALSE] L0004
CLEAR_ATTR " ",#16
SET_ATTR " ",#0a
CALL_1N R0030
PRINT "(Just before it reached the bottom there was a curious
cracking noise. Was it really wise to leave something in the shaft?)"
L0004: JE L00,#65 [FALSE] L0005
INSERT_OBJ "dumbwaiter","Cellars"
L0005: JE L00,#6c [FALSE] L0006
INSERT_OBJ "dumbwaiter",G00
L0006: JE L00,#70 [FALSE] L0007
INSERT_OBJ "dumbwaiter","Storage Room"
L0007: NEW_LINE
RTRUE
L0008: RFALSE
Routine R0372, 0 locals
JE G4c,#3e [FALSE] L0001
PRINT_RET "Click-clunk! The world looks precisely the same."
L0001: JE G4c,#3f [FALSE] L0002
PRINT_RET "Clunk-click! Probably nothing very much has changed."
L0002: RFALSE
Routine R0373, 0 locals
JE G4c,#02 [TRUE] L0001
RFALSE
L0001: PRINT "The thought of Jemima's wrath if you actually took one
of her tie-dyed sheets ("Dyeing is an art like everything else... I do it very
well") is just too dreadful. "
TEST_ATTR "antiquated wireless",#01 [FALSE] L0002
PRINT_RET "But there seems to be something lurking beneath."
L0002: NEW_LINE
RTRUE
Routine R0374, 0 locals
TEST_ATTR "antiquated wireless",#01 [FALSE] L0001
PRINT_RET "You've played this game before."
L0001: RFALSE
Routine R0375, 0 locals
JE G4c,#3e [FALSE] L0001
CALL_VN R0035 (#82,#06)
PRINT_RET "You push the switch on the wireless, but nothing
happens."
L0001: JE G4c,#3f [FALSE] L0002
TEST_ATTR "antiquated wireless",#19 [FALSE] L0002
CLEAR_ATTR "antiquated wireless",#19
PRINT_RET "Thank heaven for that."
L0002: RFALSE
Routine R0376, 2 locals
PRINT "the picture on "
CALL_2N R0290 (L00)
GET_PROP L00,#13 -> L01
JE L01,#00 [FALSE] L0001
PRINT_RET "."
L0001: PRINT_RET ", beautifully magnified and amazingly life-like. Why,
you'd hardly know there was a wall there at all."
Routine R0377, 3 locals
JE L00,#00 [TRUE] L0002
GET_PROP L00,#13 -> L01
JE L01,#00 [TRUE] L0001
STORE L02,#44
PUT_PROP L02,#13,L01
CLEAR_ATTR "south wall",#01
L0001: PRINT "The south wall lights up with "
CALL_2N R0376 (L00)
RTRUE
L0002: SET_ATTR "south wall",#01
PRINT_RET "The south wall becomes blank again."
Routine R0378, 1 local
JE G4c,#3e [FALSE] L0005
SET_ATTR "Souvenirs Room",#00
JE G25,#01 [FALSE] L0001
SET_ATTR "Disused Observatory",#00
L0001: STORE L00,#43
GET_CHILD L00 -> L00 [TRUE] L0002
L0002: JE L00,#00 [FALSE] L0004
PRINT "The south wall is lit up. "
JE G25,#01 [FALSE] L0003
PRINT "Also, a narrow white beam of light extends backwards
from the projector, pointing out up through the Observatory doorway to the
north."
L0003: NEW_LINE
RTRUE
L0004: CALL_2N R0377 (L00)
RTRUE
L0005: JE G4c,#3f [FALSE] L0006
CLEAR_ATTR "Souvenirs Room",#00
CLEAR_ATTR "Disused Observatory",#00
SET_ATTR "south wall",#01
L0006: RFALSE
Routine R0379, 1 local
JE G4c,#08 [FALSE] L0008
JE G4e,#43 [TRUE] L0001
RFALSE
L0001: STORE L00,#43
GET_CHILD L00 -> L00 [TRUE] L0002
L0002: JE L00,#00 [TRUE] L0003
PRINT_RET "There's a slide in already."
L0003: JE G4d,#34 [FALSE] L0004
PRINT "The postcard is just too large to fit.
"
CALL_1N R0313
RTRUE
L0004: JE G4d,#0130 [FALSE] L0005
PRINT "The frame is too bulky.
"
CALL_1N R0313
RTRUE
L0005: JE G4d,#0131 [FALSE] L0006
RFALSE
L0006: JE G4d,#ad [FALSE] L0007
RFALSE
L0007: TEST_ATTR G4d,#1b [TRUE] L0008
PRINT_RET "It won't fit. There's only room for something flat and
the size of, say, a playing card."
L0008: RFALSE
Routine R0380, 1 local
TEST_ATTR "slide projector",#18 [TRUE] L0001
RFALSE
L0001: JE G4c,#17 [FALSE] L0006
STORE L00,#43
GET_CHILD L00 -> L00 [TRUE] L0002
L0002: JE L00,#00 [FALSE] L0003
PRINT "
The south wall is lit up by the projector.
"
JUMP L0004
L0003: PRINT "
The south wall displays "
CALL_2N R0376 (L00)
L0004: JE G25,#01 [FALSE] L0005
PRINT "
A beam of white light points directly backward from the projector, through the
north doorway into the Observatory.
"
L0005: RTRUE
L0006: JE G4c,#08 [FALSE] L0008
JE G4e,#43 [TRUE] L0007
RFALSE
L0007: CALL_2N R0377 (G4d)
RTRUE
L0008: JE G4c,#02 [FALSE] L0010
GET_PARENT G4d -> L00
JE L00,#43 [FALSE] L0010
JE G4e,#43 [TRUE] L0009
RFALSE
L0009: CALL_2N R0377 (#00)
RTRUE
L0010: JE G4c,#03 [FALSE] L0012
JE G4e,#43 [TRUE] L0011
RFALSE
L0011: CALL_2N R0377 (#00)
RTRUE
L0012: RFALSE
Routine R0381, 0 locals
TEST_ATTR "slide projector",#18 [TRUE] L0001
RFALSE
L0001: JE G4c,#17 [TRUE] L0002
RFALSE
L0002: JE G25,#00 [FALSE] L0003
RFALSE
L0003: PRINT "
A beam of white light runs into the room from the slide projector to the south,
and hits the "
TEST_ATTR "solid glass ball",#19 [TRUE] L0004
PRINT_RET "opaque glass ball."
L0004: PRINT "glass ball, which "
CALL_1N R0382
RTRUE
Routine R0382, 1 local
GET_CHILD "slide projector" -> L00 [TRUE] L0001
L0001: JE L00,#00 [FALSE] L0002
PRINT_RET "diffracts it into a beautiful spectrum across the
ceiling."
L0002: JE L00,#c2 [FALSE] L0003
PRINT_RET "throws it into a straight rod of white light across one
wall."
L0003: JE L00,#c0 [FALSE] L0004
PRINT_RET "spins it about wildly, as if it were a strobe light at
a discotheque."
L0004: JE L00,#c1 [FALSE] L0005
PRINT_RET "amplifies it into a powerful yellow searchlight which
slowly turns about the room."
L0005: JE L00,#016f [FALSE] L0006
PRINT_RET "throws it in a crescent against one wall."
L0006: PRINT "somehow bends it so that it strikes the mural at the
sign of "
JE L00,#ad [FALSE] L0007
PRINT_RET "Scorpio."
L0007: JE L00,#c3 [FALSE] L0008
PRINT_RET "Virgo."
L0008: JE L00,#c4 [FALSE] L0009
PRINT_RET "Aquarius."
L0009: JE L00,#d2 [FALSE] L0010
PRINT_RET "Cancer."
L0010: JE L00,#d4 [FALSE] L0011
PRINT_RET "Pisces."
L0011: JE L00,#d3 [FALSE] L0012
PRINT "Capricorn.
"
CALL_1N R0283
CALL_2N R0040 (#17)
RTRUE
L0012: JE L00,#0131 [FALSE] L0013
PRINT_RET "Leo."
L0013: RTRUE
Routine R0383, 0 locals
JE G4c,#13 [FALSE] L0001
JE G4d,#05 [FALSE] L0001
PRINT_RET "Peculiarly, the hanging curtain seems to be solid iron
when you walk into it."
L0001: JE G4c,#08 [FALSE] L0003
JE G4e,#0193 [FALSE] L0003
JE G4d,#0196 [FALSE] L0002
REMOVE_OBJ "green oak quarterstaff"
INSERT_OBJ G03,"A Tower"
STORE G00,#0190
CLEAR_ATTR "defaced door",#0a
SET_ATTR "defaced door",#15
SET_ATTR "defaced door",#16
PRINT "Madame Sosostris looks up, startled. "Yes," she says,
"yes... this has potential."
She mutters incantations over the green wood and it begins to straighten out in
a quite Freudian way. "It will be ready in two thousand years. Come back then."
And she slips something into your palm as she bustles you out.
"
CALL_1N R0198
INSERT_OBJ "silver keepsake",G03
CALL_2N R0040 (#28)
RTRUE
L0002: PRINT "Madame Sosostris brushes "
CALL_2N R0290 (G4d)
PRINT_RET " aside impatiently."
L0003: RFALSE
Routine R0384, 0 locals
JE G4c,#35 [FALSE] L0001
PRINT_RET "It rumbles in your hands, but nothing else happens."
L0001: RFALSE
Routine R0385, 0 locals
JE G4c,#21 [FALSE] L0002
TEST_ATTR "grey cloak",#02 [FALSE] L0001
RFALSE
L0001: PRINT_RET "It won't open, for no reason you can see."
L0002: RFALSE
Routine R0386, 0 locals
JE G4c,#13 [FALSE] L0001
JE G4d,#05 [FALSE] L0001
PRINT_RET "Peculiarly, the hanging curtain seems to be solid iron
when you walk into it."
L0001: JE G4c,#02 [FALSE] L0002
JE G4d,#ce [FALSE] L0002
PRINT_RET "That's funny. For a moment there your hand seemed to go
straight through the pack of cards without touching it!"
L0002: JE G4c,#08 [FALSE] L0005
JE G4e,#ce [FALSE] L0005
GET_PARENT "Madame Sosostris, famous clairvoyante" -> -(SP)
JE (SP)+,#cd [FALSE] L0003
PRINT_RET "Madame Sosostris won't let you."
L0003: TEST_ATTR G4d,#1b [TRUE] L0004
PRINT_RET "That would look rather incongruous, surely?"
L0004: REMOVE_OBJ G4d
CALL_2N R0316 (G4d)
PRINT "You carefully lay "
CALL_2N R0290 (G4d)
PRINT_RET " face down on the tarot pack."
L0005: RFALSE
Routine R0387, 0 locals
JE G4c,#02 [FALSE] L0001
TEST_ATTR "poster",#0e [FALSE] L0001
CLEAR_ATTR "poster",#0e
PRINT_RET "You hastily tear down the poster, but there's nothing
interesting behind it, only painted graffiti: "Shantih Shantih Shantih"."
L0001: RFALSE
Routine R0388, 0 locals
JE G4c,#02 [FALSE] L0001
TEST_ATTR "Shrine of the Bear",#19 [TRUE] L0001
SET_ATTR "Shrine of the Bear",#19
REMOVE_OBJ " "
PRINT_RET "The Druid catches sight of your ghostly hand taking the
mascot, and immediately begins her occultations, cursing you and your
ill-gotten gains. But she is unable to make contact with you, and turns
furiously to the tapestry, hissing "lagach" to the Bear. At once a sudden swirl
of wind seems to pull her into the rough cloth, dissolving her to nothing."
L0001: RFALSE
Routine R0389, 0 locals
JE G4c,#07 [FALSE] L0001
PRINT_RET "After a brief ecstasy of fumbling, you pull it on. It
smells unpleasantly of World War II leftover cork."
L0001: RFALSE
Routine R0390, 0 locals
TEST_ATTR "sandstone recess",#0a [FALSE] L0001
CALL_2N R0040 (#1b)
JUMP L0002
L0001: JE G4c,#04 [FALSE] L0002
JE G4d,#6e [FALSE] L0002
PRINT_RET "The recess is too shallow."
L0002: TEST_ATTR "gas mask",#02 [FALSE] L0003
RFALSE
L0003: JE G4c,#13,#04 [FALSE] L0004
RFALSE
L0004: PRINT_RET "The coal dust makes you cough and splutter, and your
eyes stream. You are unable to concentrate on doing anything here."
Routine R0391, 3 locals
JL L00,#00 [FALSE] L0001
RFALSE
L0001: JG L00,#08 [FALSE] L0002
RFALSE
L0002: JL L01,#00 [FALSE] L0003
RFALSE
L0003: JG L01,#06 [FALSE] L0004
RFALSE
L0004: MUL #09,L01 -> -(SP)
ADD (SP)+,L00 -> -(SP)
LOADB G09,(SP)+ -> L02
JE L02,#30 [FALSE] L0005
STORE L02,#00
RET L02
L0005: JE L02,#31 [FALSE] L0006
STORE L02,#01
RET L02
L0006: RTRUE
Routine R0392, 3 locals
JL L00,#00 [FALSE] L0001
RFALSE
L0001: JG L00,#08 [FALSE] L0002
RFALSE
L0002: JL L01,#00 [FALSE] L0003
RFALSE
L0003: JG L01,#06 [FALSE] L0004
RFALSE
L0004: MUL #09,L01 -> -(SP)
ADD (SP)+,L00 -> -(SP)
LOADB G0e,(SP)+ -> L02
JE L02,#30 [FALSE] L0005
STORE L02,#00
RET L02
L0005: JE L02,#31 [FALSE] L0006
STORE L02,#01
RET L02
L0006: RTRUE
Routine R0393, 3 locals
JE L00,#00 [FALSE] L0001
JUMP L0005
L0001: JE L00,#08 [FALSE] L0002
JUMP L0005
L0002: JE L01,#00 [FALSE] L0003
JUMP L0005
L0003: JE L01,#06 [FALSE] L0004
JUMP L0005
L0004: CALL_VS R0391 (L00,L01) -> L02
RET L02
L0005: MUL #09,L01 -> -(SP)
ADD (SP)+,L00 -> -(SP)
LOADB G09,(SP)+ -> L02
JE L02,#30 [FALSE] L0006
STORE L02,#00
RET L02
L0006: JE L02,#31 [FALSE] L0007
STORE L02,#02
RET L02
L0007: RTRUE
Routine R0394, 3 locals
CALL_VS R0393 (L00,L01) -> L02
JE L02,#02 [FALSE] L0001
STORE L02,#00
L0001: RET L02
Routine R0395, 3 locals
CALL_VS R0393 (L00,L01) -> L02
JE L02,#01 [FALSE] L0001
STORE L02,#00
L0001: JE L02,#02 [FALSE] L0002
STORE L02,#01
L0002: RET L02
Routine R0396, 0 locals
STORE G0a,#07
STORE G0b,#05
RFALSE
Routine R0397, 1 local
STORE G0a,#04
STORE G0b,#06
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: JE G4d,#02 [TRUE] L0002
RFALSE
L0002: GET_PARENT G03 -> L00
JE L00,#96 [FALSE] L0003
RFALSE
L0003: PRINT_RET "You can't go that way.
Now, this takes a little explaining... These days, it isn't easy to keep up a
house the size of Meldrew Hall, and your family has had to strike a bargain
with the National Trust that the house should be open to the public in the
summer months. The maze is so popular with visitors that the grass has worn
away, and it's being reseeded at the moment, so you shouldn't go treading all
over it."
Routine R0398, 0 locals
JE G4c,#09 [TRUE] L0001
RFALSE
L0001: INSERT_OBJ G4d,"Family Tree"
JE G4d,#35 [FALSE] L0002
TEST_ATTR " ",#16 [FALSE] L0002
PRINT "The medicine bottle plummets to the earth below.
"
CLEAR_ATTR " ",#16
SET_ATTR " ",#0a
CALL_1N R0030
RTRUE
L0002: CALL_2N R0291 (G4d)
PRINT_RET " plummets to the earth below."
Routine R0399, 3 locals
JE G4c,#00 [FALSE] L0001
PRINT_RET "Remember the poor grass!"
L0001: JE G4c,#13 [FALSE] L0013
TEST_ATTR "garden roller",#18 [TRUE] L0002
PRINT_RET "But the garden roller is switched off, and won't
drive."
L0002: JE G0a,#04 [FALSE] L0003
JE G0b,#06 [FALSE] L0003
JE G4d,#03 [FALSE] L0003
RFALSE
L0003: JE G0a,#00 [FALSE] L0004
JE G0b,#01 [FALSE] L0004
JE G4d,#05 [FALSE] L0004
RFALSE
L0004: STORE L01,#64
STORE L02,#64
JE G4d,#02 [FALSE] L0005
STORE L01,G0a
SUB G0b,#01 -> L02
L0005: JE G4d,#04 [FALSE] L0006
ADD G0a,#01 -> L01
STORE L02,G0b
L0006: JE G4d,#03 [FALSE] L0007
STORE L01,G0a
ADD G0b,#01 -> L02
L0007: JE G4d,#05 [FALSE] L0008
SUB G0a,#01 -> L01
STORE L02,G0b
L0008: JE L01,#64 [FALSE] L0009
PRINT_RET "The maze is constructed with rectangular grid-lines of
privet, so you can only proceed north, east, south or west."
L0009: CALL_VS R0391 (L01,L02) -> -(SP)
JE (SP)+,#01 [FALSE] L0010
PRINT_RET "The privet hedge is in the way."
L0010: STORE G0a,L01
STORE G0b,L02
JE G00,#9a [FALSE] L0011
STORE G00,#99
STORE L00,#96
REMOVE_OBJ L00
INSERT_OBJ L00,"Maze"
L0011: JE G0a,#07 [FALSE] L0012
JE G0b,#05 [FALSE] L0012
STORE G00,#9a
STORE L00,#96
REMOVE_OBJ L00
INSERT_OBJ L00,"Patio in Maze"
L0012: CALL_2N R0041 (#27)
CALL_2N R0198 (#01)
RTRUE
L0013: RFALSE
Routine R0400, 2 locals
JE G4c,#13 [FALSE] L0009
JE G0a,#04 [FALSE] L0001
JE G0b,#06 [FALSE] L0001
JE G4d,#03 [FALSE] L0001
RFALSE
L0001: JE G0a,#00 [FALSE] L0002
JE G0b,#01 [FALSE] L0002
JE G4d,#05 [FALSE] L0002
RFALSE
L0002: STORE L00,#64
STORE L01,#64
JE G4d,#02 [FALSE] L0003
STORE L00,G0a
SUB G0b,#01 -> L01
L0003: JE G4d,#04 [FALSE] L0004
ADD G0a,#01 -> L00
STORE L01,G0b
L0004: JE G4d,#03 [FALSE] L0005
STORE L00,G0a
ADD G0b,#01 -> L01
L0005: JE G4d,#05 [FALSE] L0006
SUB G0a,#01 -> L00
STORE L01,G0b
L0006: JE L00,#64 [FALSE] L0007
PRINT_RET "The maze is constructed along rectangular grid-lines,
so you can only proceed north, east, south or west."
L0007: CALL_VS R0395 (L00,L01) -> -(SP)
JE (SP)+,#00 [TRUE] L0008
PRINT_RET "The wooden fence is in the way."
L0008: STORE G0a,L00
STORE G0b,L01
CALL_2N R0198 (#01)
RTRUE
L0009: RFALSE
Routine R0401, 1 local
JE G4c,#13 [FALSE] L0003
JE G4d,#0b [FALSE] L0001
RFALSE
L0001: GET_PARENT G03 -> -(SP)
JE #96,(SP)+ [TRUE] L0002
PRINT_RET "Mustn't tread on the grass now!"
L0002: CALL_1S R0399 -> L00
RET L00
L0003: RFALSE
Routine R0402, 5 locals
DEC G0b
CALL_VS R0391 (G0a,G0b) -> L01
INC G0b
INC G0a
CALL_VS R0391 (G0a,G0b) -> L03
DEC G0a
INC G0b
CALL_VS R0391 (G0a,G0b) -> L02
DEC G0b
DEC G0a
CALL_VS R0391 (G0a,G0b) -> L04
INC G0a
ADD L02,L04 -> -(SP)
ADD L03,(SP)+ -> -(SP)
ADD L01,(SP)+ -> L00
JE L00,#04 [FALSE] L0001
PRINT_RET "
You are hedged in on all sides."
L0001: JE L00,#03 [FALSE] L0002
PRINT "
You are hedged in and can only go back "
L0002: JE L00,#02 [FALSE] L0003
PRINT "
The corridor runs "
L0003: JE L00,#01 [FALSE] L0004
PRINT "
At this junction, the maze runs "
L0004: JE L00,#00 [FALSE] L0005
PRINT_RET "
This is a crossroads in the maze."
L0005: JL L00,#04 [FALSE] L0014
JE L01,#00 [FALSE] L0006
PRINT "north"
STORE L01,#01
JUMP L0009
L0006: JE L03,#00 [FALSE] L0007
PRINT "east"
STORE L03,#01
JUMP L0009
L0007: JE L02,#00 [FALSE] L0008
PRINT "south"
STORE L02,#01
JUMP L0009
L0008: JE L04,#00 [FALSE] L0009
PRINT "west"
STORE L04,#01
JUMP L0009
L0009: INC L00
JE L00,#04 [FALSE] L0010
PRINT_RET "."
L0010: JE L00,#03 [FALSE] L0011
PRINT " and "
L0011: JE L00,#02 [FALSE] L0012
PRINT ", "
L0012: JE L00,#01 [FALSE] L0013
PRINT ", "
L0013: JUMP L0005
L0014: RTRUE
Routine R0403, 5 locals
CALL_VS R0391 (G0a,G0b) -> L00
JE G0a,#07 [FALSE] L0001
JE G0b,#05 [FALSE] L0001
STORE L00,#02
L0001: NEW_LINE
JE L00,#01 [FALSE] L0002
PRINT "You are standing on a bed in which seeds have been
recently planted. "
L0002: JE L00,#00 [FALSE] L0003
PRINT "You stand on a rough patch of grass. "
L0003: JE L00,#02 [FALSE] L0004
PRINT "You stand on a rough patch of grass, marked out with
whitewash. "
L0004: DEC G0b
CALL_VS R0394 (G0a,G0b) -> L01
INC G0b
INC G0a
CALL_VS R0394 (G0a,G0b) -> L03
DEC G0a
INC G0b
CALL_VS R0394 (G0a,G0b) -> L02
DEC G0b
DEC G0a
CALL_VS R0394 (G0a,G0b) -> L04
INC G0a
ADD L02,L04 -> -(SP)
ADD L03,(SP)+ -> -(SP)
ADD L01,(SP)+ -> L00
JE L00,#04 [FALSE] L0005
PRINT "There are seedbeds on all sides. "
JUMP L0018
L0005: JE L00,#03 [FALSE] L0006
PRINT "There are seedbeds to "
L0006: JE L00,#02 [FALSE] L0007
PRINT "There are seedbeds to the "
L0007: JE L00,#01 [FALSE] L0008
PRINT "There is a seedbed to the "
L0008: JE L00,#00 [FALSE] L0009
JUMP L0018
L0009: JG L00,#00 [FALSE] L0018
JE L01,#01 [FALSE] L0010
PRINT "north"
STORE L01,#00
JUMP L0013
L0010: JE L03,#01 [FALSE] L0011
PRINT "east"
STORE L03,#00
JUMP L0013
L0011: JE L02,#01 [FALSE] L0012
PRINT "south"
STORE L02,#00
JUMP L0013
L0012: JE L04,#01 [FALSE] L0013
PRINT "west"
STORE L04,#00
JUMP L0013
L0013: DEC L00
JE L00,#00 [FALSE] L0014
PRINT ". "
JUMP L0018
L0014: JE L00,#01 [FALSE] L0015
PRINT " and "
L0015: JE L00,#02 [FALSE] L0016
PRINT ", "
L0016: JE L00,#03 [FALSE] L0017
PRINT ", "
L0017: JUMP L0009
L0018: DEC G0b
CALL_VS R0395 (G0a,G0b) -> L01
INC G0b
INC G0a
CALL_VS R0395 (G0a,G0b) -> L03
DEC G0a
INC G0b
CALL_VS R0395 (G0a,G0b) -> L02
DEC G0b
DEC G0a
CALL_VS R0395 (G0a,G0b) -> L04
INC G0a
ADD L02,L04 -> -(SP)
ADD L03,(SP)+ -> -(SP)
ADD L01,(SP)+ -> L00
JE L00,#00 [FALSE] L0019
NEW_LINE
RFALSE
L0019: JE L00,#01 [FALSE] L0020
PRINT "There is a fence to the "
L0020: JE L00,#02 [FALSE] L0021
PRINT "There are fences to "
L0021: JE L00,#03 [FALSE] L0022
PRINT "There are fences to "
L0022: JE L00,#04 [FALSE] L0023
PRINT_RET "This is a fenced-in area."
L0023: JG L00,#00 [FALSE] L0032
JE L01,#01 [FALSE] L0024
PRINT "north"
STORE L01,#00
JUMP L0027
L0024: JE L03,#01 [FALSE] L0025
PRINT "east"
STORE L03,#00
JUMP L0027
L0025: JE L02,#01 [FALSE] L0026
PRINT "south"
STORE L02,#00
JUMP L0027
L0026: JE L04,#01 [FALSE] L0027
PRINT "west"
STORE L04,#00
JUMP L0027
L0027: DEC L00
JE L00,#00 [FALSE] L0028
PRINT_RET "."
L0028: JE L00,#01 [FALSE] L0029
PRINT " and "
L0029: JE L00,#02 [FALSE] L0030
PRINT ", "
L0030: JE L00,#03 [FALSE] L0031
PRINT ", "
L0031: JUMP L0023
L0032: RTRUE
Routine R0404, 1 local
JE G4c,#17 [FALSE] L0001
CALL_1S R0402 -> L00
RET L00
L0001: RFALSE
Routine R0405, 1 local
JE G4c,#17 [FALSE] L0001
CALL_1S R0403 -> L00
RET L00
L0001: JE G4c,#09 [FALSE] L0002
PRINT "You feel an alarming wrench in your insides.
"
STORE G05,#06
RTRUE
L0002: RFALSE
Routine R0406, 1 local
JE G4c,#18 [FALSE] L0001
GET_PARENT G03 -> L00
JE L00,#96 [FALSE] L0001
JE G4d,#0d [FALSE] L0001
PRINT_RET "The writing's too small from here."
RFALSE
L0001: JE G4c,#13 [TRUE] L0002
RFALSE
L0002: JE G4d,#04 [TRUE] L0003
RFALSE
L0003: GET_PARENT G03 -> L00
JE L00,#96 [FALSE] L0004
RFALSE
L0004: PRINT_RET "For the sake of the grass, you can't go that way."
Routine R0407, 0 locals
JE G4c,#02 [FALSE] L0002
TEST_ATTR "bean pole",#19 [TRUE] L0001
RFALSE
L0001: CLEAR_ATTR "bean pole",#19
CALL_VN R0035 (#af,#05)
L0002: RFALSE
Routine R0408, 0 locals
JE G4c,#02 [FALSE] L0002
TEST_ATTR "old timber spar",#19 [TRUE] L0001
RFALSE
L0001: CLEAR_ATTR "old timber spar",#19
CALL_VN R0035 (#af,#05)
L0002: RFALSE
Routine R0409, 0 locals
STORE G05,#05
RFALSE
Routine R0410, 0 locals
STORE G0a,#00
STORE G0b,#01
RFALSE
Routine R0411, 0 locals
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: JE G4d,#04 [TRUE] L0002
RFALSE
L0002: TEST_ATTR "herd of goats",#19 [FALSE] L0003
PRINT "The goats obediently part to allow you to get by.
"
RFALSE
L0003: PRINT_RET "The goats hiss and butt against you, not letting you
through."
Routine R0412, 0 locals
CALL_2N R0041 (#04)
RFALSE
Routine R0413, 0 locals
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: JE G4d,#03 [TRUE] L0002
RFALSE
L0002: PRINT "Zeus, who is after all the chief of all the gods,
appears and hurls a thunderbolt down just before you begin to cross into the
Temple. "
TEST_ATTR "big electrician's switch",#18 [FALSE] L0003
STORE G05,#01
PRINT_RET "With the kind of calculation only a god could make,
Zeus has worked out exactly what would happen and aimed the thunderbolt so that
it hits you straight in the back despite your attempt to weave about. Pretty
impressive prediction, is your last thought."
L0003: TEST_ATTR " ",#19 [FALSE] L0004
PRINT "Astonishingly, you beat the luck of the gods and slip
into the temple just clear of the thunderbolt. "Damn, missed!" says a
sepulchral voice from without.
"
RFALSE
L0004: STORE G05,#01
PRINT_RET "With the luck of the gods, Zeus' thunderbolt strikes
you just about exactly in the back, despite your attempts to weave about."
Routine R0414, 0 locals
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: JE G4d,#02 [TRUE] L0002
RFALSE
L0002: PRINT ""I'll get you this time, worm!" says Zeus, and hurls
another thunderbolt, but now he's angry his aim is right off.
"
RFALSE
Routine R0415, 0 locals
TEST_ATTR "Ekmek Special",#06 [FALSE] L0001
RFALSE
L0001: JE G4c,#02 [TRUE] L0002
RFALSE
L0002: TEST_ATTR "copper coin",#19 [FALSE] L0003
RFALSE
L0003: PRINT_RET "You can't understand a word of what the bartender says,
but the drift is clear enough. Not until you pay for it."
Routine R0416, 0 locals
JE G4c,#18 [TRUE] L0001
RFALSE
L0001: PRINT "Avert your eyes. She is naked"
TEST_ATTR "amber hairband",#0f [FALSE] L0002
PRINT " (unless you count a hairband)"
L0002: PRINT_RET ", as used to be fashionable for human sacrifices: the
victim left overnight without food or shelter until the dawn. It has to be said
that she doesn't look all that keen to be rescued."
Routine R0417, 0 locals
JE G4c,#17 [FALSE] L0002
TEST_ATTR "Cups and Glasses",#11 [TRUE] L0001
RFALSE
L0001: TEST_ATTR "complicated-looking bomb",#01 [FALSE] L0002
PRINT_RET "
Over in one corner, you can see a little square window, behind which must be
the store of cups and glasses. Remembering this, you are distracted and unable
to enjoy the entertainment. Even the table is annoying. It must have one leg
shorter than the rest, or something, because it rattles now and then."
L0002: RFALSE
Routine R0418, 0 locals
JE G4c,#02 [FALSE] L0001
STORE G05,#08
PRINT_RET "Suddenly, someone catches sight of you with the bomb
and screams. One thing leads to another, and, well, you know how it is with
foreign legal systems. At least the bomb gets defused, and twenty-five years
isn't all that long."
L0001: RTRUE
Routine R0419, 2 locals
JE G4c,#18 [TRUE] L0001
RFALSE
L0001: PRINT "The timer seems quite simple to set. "
STORE L01,#e1
GET_PROP L01,#15 -> L00
JE G11,#01 [FALSE] L0002
PRINT "The clock is running, and currently at "
PRINT_NUM L00
PRINT_RET " minutes."
L0002: JE L00,#00 [TRUE] L0003
CALL_1N R0420
RTRUE
L0003: PRINT_RET "At present the clock is reset to 0."
Routine R0420, 3 locals
PRINT "The clock is ticking downwards, and has only "
STORE L01,#e1
GET_PROP L01,#15 -> L00
PRINT_NUM L00
JE L00,#01 [FALSE] L0001
PRINT " minute "
L0001: JE L00,#01 [TRUE] L0002
PRINT " minutes "
L0002: PRINT "to go before it hits the red zone. "
JE L00,#05 [FALSE] L0003
CALL_2N R0041 (#0a)
L0003: STORE L00,#e0
GET_PROP L00,#15 -> L01
JE L01,#00 [FALSE] L0004
PRINT_RET "All four wires are plugged into the timer."
L0004: JE L01,#01 [FALSE] L0005
PRINT "Only the "
L0005: JE L01,#02 [FALSE] L0006
PRINT "The "
L0006: JE L01,#03 [FALSE] L0007
PRINT "The "
L0007: JE L01,#04 [FALSE] L0008
PRINT_RET "None of the wires are plugged in."
L0008: STORE L02,L01
STORE L00,#e3
TEST_ATTR L00,#19 [FALSE] L0009
PRINT_OBJ L00
DEC L02
CALL_2N R0421 (L02)
L0009: STORE L00,#e2
TEST_ATTR L00,#19 [FALSE] L0010
PRINT_OBJ L00
DEC L02
CALL_2N R0421 (L02)
L0010: STORE L00,#e4
TEST_ATTR L00,#19 [FALSE] L0011
PRINT_OBJ L00
DEC L02
CALL_2N R0421 (L02)
L0011: STORE L00,#e5
TEST_ATTR L00,#19 [FALSE] L0012
PRINT_OBJ L00
DEC L02
CALL_2N R0421 (L02)
L0012: JE L01,#01 [FALSE] L0013
PRINT_RET " is unplugged."
L0013: PRINT_RET " are unplugged."
Routine R0421, 1 local
JE L00,#01 [FALSE] L0001
PRINT " and "
RFALSE
L0001: JE L00,#00 [FALSE] L0002
RFALSE
L0002: PRINT ", "
RTRUE
Routine R0422, 0 locals
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: JE G4d,#0b [TRUE] L0002
RFALSE
L0002: CALL_1N R0423
RFALSE
Routine R0423, 0 locals
GET_PARENT "photographer's flash" -> -(SP)
JE (SP)+,#fd [FALSE] L0001
PRINT "(Out of the corner of your eye, you notice the flash
fall out of the device.)
"
INSERT_OBJ "photographer's flash","Lighthouse"
L0001: RTRUE
Routine R0424, 0 locals
JE G4c,#08 [FALSE] L0001
JE G4e,#77 [FALSE] L0001
PRINT_RET "Nothing is to be gained by this."
L0001: JE G4c,#03 [FALSE] L0002
JE G4e,#77 [FALSE] L0002
PRINT_RET "There's nothing within reach inside."
L0002: RFALSE
Routine R0425, 2 locals
JE G4c,#17 [FALSE] L0010
PRINT "
Around the edge of the disc is a circular arc, surrounding the lemniscus, which
passes through nine equally spaced sockets or cylindrical wells."
STORE L00,#7c
GET_PROP L00,#15 -> L01
JE L01,#00 [FALSE] L0001
NEW_LINE
RFALSE
L0001: JE L01,#01 [FALSE] L0002
PRINT_RET " One socket contains a rod, fixed in place."
L0002: JE L01,#02 [FALSE] L0003
PRINT_RET " Two of the sockets contain rods, fixed in place."
L0003: JE L01,#03 [FALSE] L0004
PRINT_RET " Three of the sockets contain rods, fixed in place."
L0004: JE L01,#04 [FALSE] L0005
PRINT_RET " Four of the sockets contain rods, fixed in place."
L0005: JE L01,#05 [FALSE] L0006
PRINT_RET " Five of the sockets contain rods, fixed in place."
L0006: JE L01,#06 [FALSE] L0007
PRINT_RET " Six of the sockets contain rods, fixed in place."
L0007: JE L01,#07 [FALSE] L0008
PRINT_RET " Seven sockets contain rods, fixed in place."
L0008: JE L01,#08 [FALSE] L0009
PRINT_RET " Only one socket is left empty."
L0009: JE L01,#09 [FALSE] L0010
PRINT_RET " All nine sockets are occupied by rods."
L0010: RFALSE
Routine R0426, 1 local
JE G4c,#08 [FALSE] L0010
JE G4e,#7d [FALSE] L0003
JE G4d,#a7 [TRUE] L0001
PRINT_RET "That doesn't seem to fit properly."
L0001: TEST_ATTR "glowing golden orb",#19 [TRUE] L0002
PRINT_RET "The orb fits perfectly, but nothing happens: it is as
if the socket is dead, and the orb rolls out again into your hands. Curious."
L0002: INSERT_OBJ "spherical opening","glowing golden orb"
REMOVE_OBJ "glowing golden orb"
SET_ATTR "spherical opening",#19
PUT_PROP "Infinity Symbol",#02,S1026
PRINT_RET "The orb fits perfectly, and the socket comes alive with
golden light, which soaks out into the fabric of the cave until the whole place
is shining bright."
L0003: JE G4e,#7c [TRUE] L0004
RFALSE
L0004: GET_PROP G4e,#15 -> L00
TEST_ATTR G4d,#12 [TRUE] L0005
PRINT_RET "That won't fit in a socket."
L0005: JE G4d,#12 [FALSE] L0006
PRINT_RET "The Rod of Infinity is just slightly too large to fit."
L0006: JE L00,#09 [FALSE] L0007
PRINT_RET "The sockets are all full."
L0007: REMOVE_OBJ G4d
INSERT_OBJ G4d,"circular arc"
SET_ATTR G4d,#0f
INC L00
PUT_PROP "circular arc",#15,L00
PRINT "It fits perfectly in one of the arc sockets.
"
GET_PARENT "spherical opening" -> -(SP)
JE (SP)+,#00 [FALSE] L0008
INSERT_OBJ "spherical opening","Infinity Symbol"
PRINT "
As the rod goes home, a spherical opening a few inches across appears in one
wall.
"
L0008: JE L00,#09 [FALSE] L0009
CALL_2N R0040 (#13)
L0009: RTRUE
L0010: RFALSE
Routine R0427, 0 locals
JE G4c,#13 [FALSE] L0002
JE G4d,#0a [TRUE] L0001
RFALSE
L0001: PRINT_RET "You climb the ladder and are about to jump onto the
roof when you catch sight of a man swaddled in animal furs, spreadeagled over
the tiles, looking down into the central courtyard of the villa. He has a
nasty-looking sword and since he hasn't seen you, you quietly shin back down
the ladder again."
L0002: RFALSE
Routine R0428, 1 local
JE G4c,#09 [FALSE] L0001
STORE L00,#06
RANDOM L00 -> L00
PRINT "Alea iacta est. It comes up "
PRINT_NUM L00
PRINT_RET "."
L0001: RFALSE
Routine R0429, 0 locals
JE G4c,#13 [FALSE] L0001
RFALSE
L0001: PRINT_RET "There's not enough room in this confined space to do
anything much!"
Routine R0430, 0 locals
JE G4c,#04 [FALSE] L0001
JE G4d,#0113 [FALSE] L0001
JUMP L0003
L0001: JE G4c,#13 [TRUE] L0002
RFALSE
L0002: JE G4d,#0b [TRUE] L0003
RFALSE
L0003: TEST_ATTR "kitchen well",#0a [TRUE] L0004
RFALSE
L0004: TEST_ATTR "kitchen well",#19 [FALSE] L0005
PRINT "Aware of the dangers, you very carefully lower
yourself...
"
CALL_2N R0040 (#14)
RFALSE
L0005: STORE G05,#01
PRINT_RET "Having no reason to suppose the well is very deep, you
cheerfully lower yourself in. This turns out to be something of a misjudgement
and you soon lose your grip and fall, endlessly banging against the walls until
finally..."
Routine R0431, 0 locals
JE G4c,#08 [FALSE] L0003
JE G4e,#0113 [FALSE] L0003
REMOVE_OBJ G4d
TEST_ATTR G4d,#00 [FALSE] L0001
SET_ATTR "kitchen well",#19
PRINT_RET "It plummets out of sight, until even the light vanishes
in the distance. This must be an extremely deep well."
L0001: JE G4d,#0101 [TRUE] L0002
CALL_VN R0035 (#0113,#03)
L0002: PRINT_RET "It drops into the well-shaft."
L0003: RFALSE
Routine R0432, 0 locals
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: JE G4d,#03 [FALSE] L0002
JUMP L0005
L0002: JE G4d,#09 [FALSE] L0003
JUMP L0005
L0003: JE G4d,#08 [FALSE] L0004
JUMP L0005
L0004: RFALSE
L0005: PRINT "You walk out into the courtyard and are immediately set
upon by guards, who drag you away.
"
CALL_1N R0438
RTRUE
Routine R0433, 0 locals
JE G1b,#00 [FALSE] L0001
STORE G1b,#01
L0001: RFALSE
Routine R0434, 0 locals
JE G4c,#07 [FALSE] L0001
PRINT_RET "You tuck the daisy behind your ear, almost out of
sight."
L0001: JE G4c,#02 [FALSE] L0002
TEST_ATTR "yellow daisy",#19 [TRUE] L0002
SET_ATTR "yellow daisy",#19
PRINT_RET "Aided by the swinging of the rope, you pick the daisy."
L0002: RFALSE
Routine R0435, 0 locals
JE G4c,#02 [TRUE] L0001
RFALSE
L0001: TEST_ATTR "yellow daisy",#06 [FALSE] L0002
RFALSE
L0002: TEST_ATTR "hemp rope",#19 [FALSE] L0003
RFALSE
L0003: PRINT_RET "You stretch out your hand, but cannot quite reach the
daisy, such is the size of the overhang."
Routine R0436, 0 locals
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: JE G4d,#0b [TRUE] L0002
RFALSE
L0002: PRINT "You clamber down the rope, straight into a patrol of
guards who capture you!
"
CALL_1N R0438
RTRUE
Routine R0437, 0 locals
JE G4c,#09 [FALSE] L0001
REMOVE_OBJ G4d
CALL_2N R0291 (G4d)
PRINT_RET " tumbles end over end into the valley below."
L0001: RFALSE
Routine R0438, 1 local
JL G1b,#08 [FALSE] L0001
STORE G05,#01
PRINT "
The guardsmen grab your head by the chin and examine you, but take you for a
plain thief and immediately put you to the sword. A pity they did not realise
your importance, but then they are only guards, and anyway if they had they
would probably just have done you in more unpleasantly.
"
RTRUE
L0001: PRINT "
Suddenly you are thrust before a druidical figure. He seems to recognise you,
and is troubled. Perhaps because of this, your life is saved and you are taken
away into custody, down in the valley among the army encampments.
"
CALL_VN R0035 (#0118,#04)
GET_CHILD G03 -> L00 [TRUE] L0002
L0002: JE L00,#00 [TRUE] L0005
TEST_ATTR L00,#02 [TRUE] L0003
REMOVE_OBJ L00
L0003: GET_SIBLING L00 -> L00 [TRUE] L0004
L0004: JUMP L0002
L0005: STORE G1b,#00
STORE G00,#0117
REMOVE_OBJ G03
INSERT_OBJ G03,"Rough Tent"
CALL_1N R0198
RTRUE
Routine R0439, 0 locals
JE G4c,#1a [TRUE] L0001
RFALSE
L0001: PRINT_RET "Not only are the guards better at searching suspects
than you, they also did so first."
Routine R0440, 0 locals
JE G4c,#43 [FALSE] L0001
PRINT_RET "It won't break."
L0001: JE G4c,#3b,#39 [FALSE] L0002
PRINT_RET "Its base is in the earth."
L0002: RFALSE
Routine R0441, 0 locals
JE G4c,#02 [TRUE] L0001
RFALSE
L0001: TEST_ATTR "tent pole",#19 [TRUE] L0002
SET_ATTR "tent pole",#19
PRINT "As you uproot the tent-pole, the whole tent collapses
ignominiously, the animal hides falling about your head. The hides are heavy
and weigh you down, but you just manage to crawl out...
"
CALL_VN R0035 (#011a,#0a)
STORE G00,#011a
REMOVE_OBJ G03
INSERT_OBJ G03,"Encampment"
CALL_1N R0198
RTRUE
L0002: RFALSE
Routine R0442, 0 locals
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: JE G4d,#04 [TRUE] L0002
RFALSE
L0002: TEST_ATTR "leather sandals",#02 [FALSE] L0003
PRINT "You cross the hot coals nimbly in your sandals.
"
RFALSE
L0003: PRINT_RET "Walk across those hot coals! You must be joking."
Routine R0443, 2 locals
JE G4c,#17 [TRUE] L0001
RFALSE
L0001: STORE G00,#28
REMOVE_OBJ G03
INSERT_OBJ G03,"camp bed"
STORE G06,#01
STORE L00,#04
GET_CHILD L00 -> L00 [TRUE] L0002
L0002: JE L00,#00 [TRUE] L0004
GET_SIBLING L00 -> L01 [TRUE] L0003
L0003: REMOVE_OBJ L00
INSERT_OBJ L00,G03
STORE L00,L01
JUMP L0002
L0004: STORE L00,#8a
GET_PARENT L00 -> L00
JE L00,G03 [FALSE] L0005
CALL_VN R0035 (#8a,#0f)
CALL_2N R0040 (#15)
L0005: PRINT_RET "
You awaken, shivering with dread."
Routine R0444, 3 locals
JE G4c,#13 [FALSE] L0003
JE G4d,#02,#03 [FALSE] L0001
PRINT "
Walking through the mirror is a wrench, but leaves you somewhere... almost
exactly the same...
"
CALL_2N R0040 (#0f)
L0001: JE G4d,#02 [FALSE] L0002
CALL_1N R0252
RFALSE
L0002: JE G4d,#03 [FALSE] L0003
CALL_1N R0251
RFALSE
L0003: JE G4c,#17 [FALSE] L0014
TEST_ATTR "Contraption ",#19 [FALSE] L0004
PRINT "
The lower basket contains a cannonball, and the upper is empty.
"
RFALSE
L0004: GET_CHILD "hanging cord" -> L00 [TRUE] L0005
L0005: JE L00,#00 [TRUE] L0014
PRINT "
The lower basket contains "
STORE Gef,#00
GET_CHILD "hanging cord" -> -(SP) [FALSE] L0007
L0006: INC Gef
GET_SIBLING (SP)+ -> -(SP) [TRUE] L0006
L0007: ADD (SP)+,Gef -> -(SP)
STORE L01,(SP)+
GET_CHILD "hanging cord" -> L00 [TRUE] L0008
L0008: STORE L02,#00
L0009: JE L00,#00 [TRUE] L0013
CALL_2N R0289 (L00)
SUB L01,#02 -> -(SP)
JE L02,(SP)+ [FALSE] L0010
PRINT " and "
L0010: SUB L01,#02 -> -(SP)
JL L02,(SP)+ [FALSE] L0011
PRINT ", "
L0011: GET_SIBLING L00 -> L00 [TRUE] L0012
L0012: INC L02
JUMP L0009
L0013: PRINT ".
"
L0014: RFALSE
Routine R0445, 2 locals
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: CALL_2N R0198 (#01)
NEW_LINE
TEST_ATTR "angel",#19 [FALSE] L0002
PRINT_RET ""I presume you have decided what to ask," says the
angel."
L0002: STORE L00,#0122
GET_PROP L00,#15 -> L01
JG L01,#00 [FALSE] L0003
DEC L01
PUT_PROP L00,#15,L01
JG L01,#00 [FALSE] L0003
SET_ATTR "angel",#19
L0003: JE L01,#00 [FALSE] L0004
PRINT_RET ""I'm afraid I can be of no further use to you! See you
in another life," says the angel with a memorable smile."
L0004: JE L01,#01 [FALSE] L0005
PRINT_RET ""You have one remaining question," says the angel with
a memorable smile."
L0005: JE L01,#02 [FALSE] L0006
PRINT_RET ""A whole two questions left," says the angel with a
memorable smile."
L0006: PRINT_RET ""Good day," says the angel with a memorable smile. "As
a reward for your act of faith, may I welcome you to our little information
service. We try to be as helpful as possible to explorers who are lost, or
can't think how to solve their problems. Is there anything, pray, which you
would like a hint about, or which you'd like to show me? You are permitted
three hints in all, in accordance with standard practice.""
Routine R0446, 2 locals
JE G4c,#13 [TRUE] L0001
RFALSE
L0001: CALL_2N R0198 (#01)
NEW_LINE
TEST_ATTR "demon",#19 [FALSE] L0002
PRINT_RET ""Thought what you wanted to ask yet?" says the demon."
L0002: STORE L00,#0120
GET_PROP L00,#15 -> L01
JG L01,#00 [FALSE] L0003
DEC L01
PUT_PROP L00,#15,L01
JG L01,#00 [FALSE] L0003
SET_ATTR "demon",#19
L0003: JE L01,#00 [FALSE] L0004
PRINT_RET ""Get out, you little pipsqueak! I'll be seeing you...
much later..." says the demon with a memorable smile."
L0004: JE L01,#01 [FALSE] L0005
PRINT_RET ""All right, toad, you have one, just one, chance left,"
says the demon with a memorable smile."
L0005: JE L01,#02 [FALSE] L0006
PRINT_RET ""Now then, two chances remaining," says the demon with
a memorable smile."
L0006: PRINT_RET ""Good afternoon," says the demon with a memorable
smile. "As a reward for your naked greed, may I welcome you to our little
information service. We try to be as helpful as possible to explorers who are
lost, or can't think how to solve their problems, you know the kind of thing.
So just tell me what you want to know, or show me something to look at. You get
the usual three hints.""
Routine R0447, 1 local
JE L00,#01 [FALSE] L0001
PRINT_RET ""In the premonition, it is vital to get hold of the
mascot for later use.""
L0001: JE L00,#02 [FALSE] L0002
PRINT_RET ""It's no use poking about on the attic floor for fresh
torch batteries, because there aren't any.""
L0002: JE L00,#03 [FALSE] L0003
PRINT_RET ""Your Aunt Jemima is not the kind of woman to be
distracted by music or frivolous presents, mark my words.""
L0003: JE L00,#04 [FALSE] L0004
PRINT_RET ""Novels are, of course, invariably written by people
using their real names, not disguised in any way.""
L0004: JE L00,#05 [FALSE] L0005
PRINT_RET ""The thing about daisies is, they are the same all year
round, not changing with the calendar.""
L0005: JE L00,#06 [FALSE] L0006
PRINT_RET ""Modern medicine bottles can even withstand falls from
a great height. I should try heat if I were you.""
L0006: JE L00,#07 [FALSE] L0007
PRINT_RET ""You can easily get a grip on the demijohn with your
bare hands.""
L0007: JE L00,#08 [FALSE] L0008
PRINT_RET ""The answer's the same, whichever bottle you meant.
That counts as your hint, I'm afraid. Not very fair, but then I am a demon.""
L0008: JE L00,#09 [FALSE] L0009
PRINT_RET "The demon acknowledges the question, but cannot bring
himself to speak of Heaven."
L0009: JE L00,#0a [FALSE] L0010
PRINT_RET ""Hell? Oh this isn't your eternal damnation, it's
mine, having to answer all these wretched questions. No, Hell itself is a
marvellous place, and it has an excellent health club too. Look forward to
seeing you there.""
L0010: JE L00,#0b [FALSE] L0011
PRINT_RET ""Don't worry, there's nothing written there. No need to
look at the problem in a fresh light.""
L0011: JE L00,#0c [FALSE] L0012
PRINT_RET ""History never repeats itself, so it's pointless
looking him up in the book.""
L0012: JE L00,#0d [FALSE] L0013
PRINT_RET ""The really interesting stuff is at the very start of
his working life.""
L0013: JE L00,#0e [FALSE] L0014
PRINT_RET ""Forget it, there's no way to return from the museum,
and Doktor Stein's medicine has no antidote.""
L0014: JE L00,#0f [FALSE] L0015
PRINT_RET ""Merlyn doesn't really come into this. Try working on
something else.""
L0015: JE L00,#10 [FALSE] L0016
PRINT_RET ""Literally, Merlyn's actual hat. Green pointy felt, I
wouldn't wonder.""
L0016: JE L00,#11 [FALSE] L0017
PRINT_RET ""The answer's the same, whichever book you meant. That
counts as your hint, I'm afraid. Not very fair, but then I am a demon.""
L0017: JE L00,#12 [FALSE] L0018
PRINT_RET ""Ebenezer? He's absolutely central to this.
Concentrate on him, definitely.""
L0018: JE L00,#13 [FALSE] L0019
PRINT_RET ""Trouble with holiday snaps is, once somebody gets the
old slide projector going, a boring time is on the cards for all.""
L0019: JE L00,#14 [FALSE] L0020
PRINT_RET ""You'll need to be wide awake and alert to work out
what to do with them. Finding them is easy - just remember to keep an eye out
for short, fat things.""
L0020: JE L00,#15 [FALSE] L0021
PRINT_RET ""Clairvoyantes are expert at detecting stacked decks,
so it's no good cheating.""
L0021: JE L00,#16 [FALSE] L0022
PRINT_RET ""Phlebas runs a very badly-advertised service, I'm
afraid. I've got no time for him.""
L0022: JE L00,#17 [FALSE] L0023
PRINT_RET ""Once the mouse is in the hole, forget it, it couldn't
hear you even if you talked to the hole instead. But there is an alternative
method.""
L0023: JE L00,#18 [FALSE] L0024
PRINT_RET ""Your fault for letting the key get into the
foundations - nothing can get in there to retrieve it.""
L0024: JE L00,#19 [FALSE] L0025
PRINT_RET ""Marvellous, marvellous contraption. Starts the moment
you switch it on, and then nothing but solid gold classics all the way. You can
really concentrate when that's playing.""
L0025: JE L00,#1a [FALSE] L0026
PRINT_RET ""What, the blocked-up old fireplace that doesn't lead
anywhere? You need to be carrying plenty of equipment to get down it - don't
worry if it's dark at the bottom, after all there's nothing you can do about
that.""
L0026: JE L00,#1b [FALSE] L0027
PRINT_RET ""The sandstone recess is probably impassible. Better
try only when you're wide awake.""
L0027: JE L00,#1c [FALSE] L0028
PRINT_RET ""Austin's a perfect devil, isn't he? She, I should
say. Good for nothing except getting in the way, of course. Walks into walls
just when you don't want, but at least Jemima calms her down.""
L0028: JE L00,#1d [FALSE] L0029
PRINT_RET ""Smoke detectors like yours are specially rigged not to
be triggered by accidental shafts of light.""
L0029: JE L00,#1e [FALSE] L0030
PRINT_RET ""Of course the ship is far too large and ungainly ever
to fit in the bottle.""
L0030: JE L00,#1f [FALSE] L0031
PRINT_RET ""Cold comfort.""
L0031: JE L00,#20 [FALSE] L0032
PRINT_RET ""A good blanket might be a plain, colourless sort of
covering with no emblem to it.""
L0032: JE L00,#21 [FALSE] L0033
PRINT_RET ""The thing about the revolving door is, you can only
revolve it when you're already standing inside.""
L0033: JE L00,#22 [FALSE] L0034
PRINT_RET ""Unbreakable glass.""
L0034: JE L00,#23 [FALSE] L0035
PRINT_RET ""A vital clue, and useful in its own right.""
L0035: JE L00,#24 [FALSE] L0036
PRINT_RET ""The greatest computer game of all time. I'm proud to
be a part of it.""
L0036: JE L00,#25 [FALSE] L0037
PRINT_RET "The demon blushes. "Wasn't my fault! My partner made a
mess of it.""
L0037: RTRUE
Routine R0448, 1 local
JE L00,#02 [FALSE] L0001
PRINT_RET "The angel acknowledges the question, but cannot bring
herself to speak of Hell."
L0001: JE L00,#01 [FALSE] L0002
PRINT_RET ""Heaven? Oh this isn't your eternal salvation, it's
mine, able to serve by answering all these delightful questions. No, Heaven
itself is a marvellous place, and it has an excellent health club too. Look
forward to seeing you there.""
L0002: JE L00,#03 [FALSE] L0003
PRINT_RET ""The rods definitely fit into all this somewhere.""
L0003: JE L00,#04 [FALSE] L0004
PRINT_RET ""If only you could have been there when the maze was
being laid out!""
L0004: JE L00,#05 [FALSE] L0005
PRINT_RET ""The master game is like a point at infinity to we
mortals," the angel says wistfully."
L0005: JE L00,#06 [FALSE] L0006
PRINT_RET ""All a matter of fitting the rods in somewhere.""
L0006: JE L00,#07 [FALSE] L0007
PRINT_RET ""How she must long to let her hair down now, instead of
being chained to that rock," the angel says sorrowfully. "But in deference to
her wishes, I cannot help you rescue her.""
L0007: JE L00,#08 [FALSE] L0008
PRINT_RET ""Amazing fortune you must have in finding it, I can
tell.""
L0008: JE L00,#09 [FALSE] L0009
PRINT_RET ""Ah yes, we must all lament for human folly," says the
angel, misunderstanding completely."
L0009: JE L00,#0a [FALSE] L0010
PRINT_RET ""Zeus wasn't a true god, of course," the angel
predictably insists, "just a manifestation of the laws of physics to an Ancient
Greek, a kind of symbol for the way the universe fundamentally worked.""
L0010: JE L00,#0b [FALSE] L0011
PRINT_RET "The angel maintains a tight-lipped silence."
L0011: JE L00,#0c [FALSE] L0012
PRINT_RET ""That's too dangerous a rod to actually use, of course,
and the Church no longer approves of martyrs.""
L0012: JE L00,#0d [FALSE] L0013
PRINT_RET ""Is there really such a thing as luck, or free will?
It's a theological grey area," says the angel with fine casuistry."
L0013: JE L00,#0e [FALSE] L0014
PRINT_RET ""Certainly a thorny problem, that.""
L0014: JE L00,#0f [FALSE] L0015
PRINT_RET ""Old Evans would never give you his mascot of his own
free will.""
L0015: JE L00,#10 [FALSE] L0016
PRINT_RET ""One has to reflect on ugliness like that.""
L0016: JE L00,#11 [FALSE] L0017
PRINT_RET ""It's quite hypnotically fascinating, don't you
think?""
L0017: JE L00,#12 [FALSE] L0018
PRINT_RET ""Squirrels are very fond of nuts, but you can't trust
them an inch.""
L0018: JE L00,#13 [FALSE] L0019
PRINT_RET ""Just think what that would do to a decent lawn! Oh,
it makes me go cold all over.""
L0019: JE L00,#14 [FALSE] L0020
PRINT_RET ""Whatever is a croquet lawn for, if not to play
croquet? Although, now I think about it, there is something else down there.""
L0020: JE L00,#16 [FALSE] L0021
PRINT_RET ""Show me!""
L0021: JE L00,#17 [FALSE] L0022
PRINT_RET ""Ah yes, a code word understood by certain of Alexander
the Great's slaves. But you'd have to be in the right place at the right
time.""
L0022: JE L00,#18 [FALSE] L0023
PRINT_RET ""The mouth is the key, or rather the lock.""
L0023: JE L00,#19 [FALSE] L0024
PRINT_RET ""Do be careful. The sphinxes are only made of stone,
but they could easily give you nightmares.""
L0024: JE L00,#1a [FALSE] L0025
PRINT_RET ""Jolly comfortable, some of those funeral couches.""
L0025: JE L00,#1b [FALSE] L0026
PRINT_RET ""A one-way ride, but that's life.""
L0026: JE L00,#1c [FALSE] L0027
PRINT_RET ""Once fired with life, the knight will only be yours to
command when he has discharged his chivalric duty.""
L0027: JE L00,#1d [FALSE] L0028
PRINT_RET ""Some of those ancient knights were rather loose, but
perhaps that's better than being screwed up.""
L0028: JE L00,#1e [FALSE] L0029
PRINT_RET ""The Great Library isn't for passing hooligans, you
know," says the angel reprovingly. "Besides, the guards understand their duty
by the Cat God far too well to let you through.""
L0029: JE L00,#1f [FALSE] L0030
PRINT_RET ""They're always at each other's throats. I shudder to
think what might happen if a real fight broke out.""
L0030: JE L00,#20 [FALSE] L0031
PRINT_RET ""Oh, find yourself a costume, join the party!""
L0031: JE L00,#21 [FALSE] L0032
PRINT_RET ""The green wood may one day make a really good staff,
but it could take ages. Better leave it with someone for safe keeping.""
L0032: JE L00,#22 [FALSE] L0033
PRINT_RET ""Some choices are inevitable and permanent, at least in
this world.""
L0033: JE L00,#23 [FALSE] L0034
PRINT_RET ""Do be careful of the trap, won't you! You might want
to take precautions with the opening.""
L0034: JE L00,#24 [FALSE] L0035
PRINT_RET ""Let me see.""
L0035: JE L00,#25 [FALSE] L0036
PRINT_RET ""You appreciate, in my position I can't really comment
on graven images of pagan gods. Better try some dictionary or other.""
L0036: JE L00,#26 [FALSE] L0037
PRINT_RET ""That woman will rabbit on, once you set her off. But
only if you sacrifice something. Will you be joining us next Harvest Sunday, by
the way?""
L0037: JE L00,#27 [FALSE] L0038
PRINT_RET ""Ooh, it does make me shiver, thinking of the way they
used to pour oil over themselves, anointing they called it.""
L0038: JE L00,#28 [FALSE] L0039
PRINT_RET ""Shabby old gossip, Homer, always reminds me of Peter
Falk. Anyway, just give him his answers. Shouldn't be too hard, with what
you're wearing and carrying.""
L0039: JE L00,#29 [FALSE] L0040
PRINT_RET ""Going in round the front just scares the birds away, I
fear.""
L0040: JE L00,#2a [FALSE] L0041
PRINT_RET ""Find out what you can about your ancestor who built it
- his tomb isn't far away. Then reflect as best you can on the problem.""
L0041: JE L00,#2b [FALSE] L0042
PRINT_RET ""Well, if you know what the odour is, that's the main
thing.""
L0042: RTRUE
Routine R0449, 2 locals
STORE L01,#00
JE L00,"premoniti","dream" [FALSE] L0001
STORE L01,#01
L0001: JE L00,"torch","battery" [FALSE] L0002
STORE L01,#02
L0002: JE L00,"aunt","jemima","gloves" [FALSE] L0003
STORE L01,#03
L0003: JE L00,"romance","marie" [FALSE] L0004
STORE L01,#04
L0004: JE L00,"daisy","daisychai","daisies" [FALSE] L0005
STORE L01,#05
L0005: JE L00,"medicine" [FALSE] L0006
STORE L01,#06
L0006: JE L00,"demijohn" [FALSE] L0007
STORE L01,#07
L0007: JE L00,"bottle" [FALSE] L0008
STORE L01,#08
L0008: JE L00,"heaven" [FALSE] L0009
STORE L01,#09
L0009: JE L00,"hell" [FALSE] L0010
STORE L01,#0a
L0010: JE L00,"card","postcard" [FALSE] L0011
STORE L01,#0b
L0011: JE L00,"ghost","joshua" [FALSE] L0012
STORE L01,#0c
L0012: JE L00,"prayer","isaac" [FALSE] L0013
STORE L01,#0d
L0013: JE L00,"museum","arcana","doktor" [FALSE] L0014
STORE L01,#0e
L0014: JE L00,"stein" [FALSE] L0015
STORE L01,#0e
L0015: JE L00,"merlyn","merlin" [FALSE] L0016
STORE L01,#0f
L0016: JE L00,"hat" [FALSE] L0017
STORE L01,#10
L0017: JE L00,"book" [FALSE] L0018
STORE L01,#11
L0018: JE L00,"ebenezer" [FALSE] L0019
STORE L01,#12
L0019: JE L00,"projector","slide","cards" [FALSE] L0020
STORE L01,#13
L0020: JE L00,"rod","rods" [FALSE] L0021
STORE L01,#14
L0021: JE L00,"tarot","sosostris" [FALSE] L0022
STORE L01,#15
L0022: JE L00,"boat","hollow" [FALSE] L0023
STORE L01,#16
L0023: JE L00,"mouse","robot","hole" [FALSE] L0024
STORE L01,#17
L0024: JE L00,"key" [FALSE] L0025
STORE L01,#18
L0025: JE L00,"radio","wireless" [FALSE] L0026
STORE L01,#19
L0026: JE L00,"fireplace","chimney" [FALSE] L0027
STORE L01,#1a
L0027: JE L00,"sandstone","recess" [FALSE] L0028
STORE L01,#1b
L0028: JE L00,"austin","cat" [FALSE] L0029
STORE L01,#1c
L0029: JE L00,"smoke","detector","alarm" [FALSE] L0030
STORE L01,#1d
L0030: JE L00,"ship" [FALSE] L0031
STORE L01,#1e
L0031: JE L00,"flag" [FALSE] L0032
STORE L01,#1f
L0032: JE L00,"alison","bed" [FALSE] L0033
STORE L01,#20
L0033: JE L00,"revolving" [FALSE] L0034
STORE L01,#21
L0034: JE L00,"cabinet" [FALSE] L0035
STORE L01,#22
L0035: JE L00,"matchbook" [FALSE] L0036
STORE L01,#23
L0036: JE L00,"curses" [FALSE] L0037
STORE L01,#24
L0037: JE L00,"tera" [FALSE] L0038
STORE L01,#25
L0038: RET L01
Routine R0450, 2 locals
STORE L01,#00
JE L00,"heaven" [FALSE] L0001
STORE L01,#01
L0001: JE L00,"hell" [FALSE] L0002
STORE L01,#02
L0002: JE L00,"rods" [FALSE] L0003
STORE L01,#03
L0003: JE L00,"maze" [FALSE] L0004
STORE L01,#04
L0004: JE L00,"master" [FALSE] L0005
STORE L01,#05
L0005: JE L00,"infinity","lemniscus","arc" [FALSE] L0006
STORE L01,#06
L0006: JE L00,"andromeda" [FALSE] L0007
STORE L01,#07
L0007: JE L00,"mural" [FALSE] L0008
STORE L01,#08
L0008: JE L00,"folly" [FALSE] L0009
STORE L01,#09
L0009: JE L00,"zeus" [FALSE] L0010
STORE L01,#0a
L0010: JE L00,"bomb","lighthous" [FALSE] L0011
STORE L01,#0b
L0011: JE L00,"pharos","device" [FALSE] L0012
STORE L01,#0b
L0012: JE L00,"sacrifice" [FALSE] L0013
STORE L01,#0c
L0013: JE L00,"luck" [FALSE] L0014
STORE L01,#0d
L0014: JE L00,"fire" [FALSE] L0015
STORE L01,#0e
L0015: JE L00,"old","evans" [FALSE] L0016
STORE L01,#0f
L0016: JE L00,"ugly","idol" [FALSE] L0017
STORE L01,#10
L0017: JE L00,"mascot","moon","racing" [FALSE] L0018
STORE L01,#0f
L0018: JE L00,"gold","golden","watch" [FALSE] L0019
STORE L01,#11
L0019: JE L00,"squirrel","friend" [FALSE] L0020
STORE L01,#12
L0020: JE L00,"loose","board" [FALSE] L0021
STORE L01,#12
L0021: JE L00,"spade" [FALSE] L0022
STORE L01,#13
L0022: JE L00,"croquet","lawn" [FALSE] L0023
STORE L01,#14
L0023: JE L00,"smooth","magnetic","stone" [FALSE] L0024
STORE L01,#16
L0024: JE L00,"anoppe","eppona" [FALSE] L0025
STORE L01,#17
L0025: JE L00,"strong","strongbox" [FALSE] L0026
STORE L01,#16
L0026: JE L00,"astrolabe" [FALSE] L0027
STORE L01,#16
L0027: JE L00,"tombstone","tomb","stone" [FALSE] L0028
STORE L01,#18
L0028: JE L00,"sphinx","sphinxes" [FALSE] L0029
STORE L01,#19
L0029: JE L00,"couch","couches" [FALSE] L0030
STORE L01,#1a
L0030: JE L00,"skiff","yacht","boat" [FALSE] L0031
STORE L01,#1b
L0031: JE L00,"adamantin","knight" [FALSE] L0032
STORE L01,#1c
L0032: JE L00,"hand","head" [FALSE] L0033
STORE L01,#1d
L0033: JE L00,"library","portico" [FALSE] L0034
STORE L01,#1e
L0034: JE L00,"librarian","apolloniu","callimach" [FALSE] L0035
STORE L01,#1f
L0035: JE L00,"alexandri" [FALSE] L0036
STORE L01,#20
L0036: JE L00,"quarterst","quarter","staff" [FALSE] L0037
STORE L01,#21
L0037: JE L00,"high" [FALSE] L0038
STORE L01,#22
L0038: JE L00,"oubliette" [FALSE] L0039
STORE L01,#23
L0039: JE L00,"amber","gem" [FALSE] L0040
STORE L01,#24
L0040: JE L00,"statues","gods" [FALSE] L0041
STORE L01,#25
L0041: JE L00,"oracle","priestess","delphic" [FALSE] L0042
STORE L01,#26
L0042: JE L00,"altar" [FALSE] L0043
STORE L01,#26
L0043: JE L00,"oil","trough" [FALSE] L0044
STORE L01,#27
L0044: JE L00,"homer","poet" [FALSE] L0045
STORE L01,#28
L0045: JE L00,"summer","house" [FALSE] L0046
STORE L01,#29
L0046: JE L00,"contrapti","panel","grid" [FALSE] L0047
STORE L01,#2a
L0047: JE L00,"ozone" [FALSE] L0048
STORE L01,#2b
L0048: RET L01
Routine R0451, 0 locals
Action routine for:
"xdh SPECIAL"
CALL_2N R0453 (G50)
RTRUE
Routine R0452, 0 locals
Action routine for:
"xah SPECIAL"
CALL_2N R0454 (G50)
RTRUE
Routine R0453, 2 locals
CALL_2S R0449 (L00) -> L01
JE L01,#00 [TRUE] L0001
CALL_2N R0447 (L01)
STORE L01,#01
RET L01
L0001: CALL_2S R0450 (L00) -> L01
JE L01,#00 [TRUE] L0002
PRINT ""That's a question you'd better put to my colleague in
the Other Place," says the demon smoothly. "Try something else."
"
STORE L01,#00
RET L01
L0002: PRINT ""That's not something I am empowered to answer," says
the demon with a nervous glance behind him. "Try something else."
"
STORE L01,#00
RET L01
Routine R0454, 2 locals
CALL_2S R0450 (L00) -> L01
JE L01,#00 [TRUE] L0001
CALL_2N R0448 (L01)
STORE L01,#01
RET L01
L0001: CALL_2S R0449 (L00) -> L01
JE L01,#00 [TRUE] L0002
PRINT ""That's a question you'd better put to my colleague in
the Other Place," says the angel smoothly. "Try something else."
"
STORE L01,#00
RET L01
L0002: PRINT ""That's not something I am empowered to answer," says
the angel with a beatific smile upward. "Try something else."
"
STORE L01,#00
RET L01
Routine R0455, 7 locals
JE G2a,#00 [FALSE] L0001
PRINT "Congratulations once again on winning "Curses". Before
you go, though, have you ever...
seen the maze layout from up the tree?
asked the demon and angel about Heaven and Hell?
showed them all the objects you can carry around?
tried singing, swimming, swearing or ramming doors?
tried casting all the rods on yourself?
"
PRINT " shown the demon something edible?
tried walking on the roof?
tried magic words like xyzzy, plugh, shantih or the Zork verb diagnose?
or considered getting your revenge, by writing your own Adventure game?
"
PRINT "Which only leaves one final diversion, the "Curses"
trivia quiz. And the questions are:
"
JUMP L0023
L0001: STORE L01,#05
L0002: STORE L02,#00
ERASE_WINDOW #ffff
SPLIT_WINDOW #0e
LOADB #00,#21 -> L00
JE L00,#00 [FALSE] L0003
STORE L00,#50
L0003: SET_WINDOW #01
SET_CURSOR #01,#01
SET_TEXT_STYLE REVERSE
STORE Gef,L00
JL Gef,#01 [TRUE] L0005
L0004: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0004
L0005: DIV L00,#02 -> -(SP)
SUB (SP)+,#0a -> L06
SET_CURSOR #01,L06
PRINT "Curses Trivia Quiz"
SET_CURSOR #02,#01
STORE Gef,L00
JL Gef,#01 [TRUE] L0007
L0006: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0006
L0007: SET_CURSOR #02,#02
PRINT "N = next question"
SUB L00,#0c -> L06
SET_CURSOR #02,L06
PRINT "P = previous"
SET_CURSOR #03,#01
STORE Gef,L00
JL Gef,#01 [TRUE] L0009
L0008: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0008
L0009: SET_CURSOR #03,#02
PRINT "RETURN = reveal answer"
SUB L00,#0c -> L06
SET_CURSOR #03,L06
PRINT "Q = end quiz"
SET_TEXT_STYLE ROMAN
SET_CURSOR #05,#02
LOADW #00,#08 -> -(SP)
OR #02,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
PRINT " What are the six "good but wrong guesses"?
How many songs can play on the wireless?
What are the nine *** game ends ***?
What else do the daisy chain and mirror do?
What can you see in the crystal ball?
How else can Austin leave the attic?
Whose is the handkerchief, and the graffiti?
How many Tarot cards are there altogether?
What are the six unnecessary puzzles?
How is the medicine bottle opened?
What is the mascot for?
Where do the ancient languages come from?
"
L0010: JE L01,L02 [TRUE] L0012
JG L02,#00 [FALSE] L0011
SET_CURSOR L02,#04
PRINT " "
L0011: SET_CURSOR L01,#04
PRINT ">"
L0012: STORE L02,L01
READ_CHAR #01,#00,#00 -> L05
JE L05,#4e,#6e,#81 [FALSE] L0014
INC L01
JE L01,#11 [FALSE] L0013
STORE L01,#05
L0013: JUMP L0010
L0014: JE L05,#50,#70,#82 [FALSE] L0016
DEC L01
JE L01,#04 [FALSE] L0015
STORE L01,#10
L0015: JUMP L0010
L0016: JE L05,#51,#71 [FALSE] L0017
JUMP L0022
L0017: JE L05,#0a,#0d [FALSE] L0021
SET_WINDOW #00
LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
ERASE_WINDOW #ffff
STORE G41,#01
NEW_LINE
NEW_LINE
NEW_LINE
STORE L03,#03
STORE L04,S1027
SPLIT_WINDOW #01
LOADB #00,#21 -> L00
JE L00,#00 [FALSE] L0018
STORE L00,#50
L0018: SET_WINDOW #01
SET_CURSOR #01,#01
SET_TEXT_STYLE REVERSE
STORE Gef,L00
JL Gef,#01 [TRUE] L0020
L0019: PRINT_CHAR ' '
SUB Gef,#01 -> Gef
JE Gef,#00 [FALSE] L0019
L0020: DIV L00,#02 -> -(SP)
SUB (SP)+,L03 -> L06
SET_CURSOR #01,L06
PRINT_PADDR L04
SET_TEXT_STYLE ROMAN
SET_WINDOW #00
STORE G41,#01
NEW_LINE
SUB L01,#04 -> -(SP)
CALL_2N R0456 ((SP)+)
PRINT "
[Please press SPACE.]
"
READ_CHAR #01,#00,#00 -> L05
JUMP L0002
L0021: JUMP L0010
L0022: LOADW #00,#08 -> -(SP)
AND #fffd,(SP)+ -> -(SP)
STOREW #00,#08,(SP)+
SET_CURSOR #01,#01
ERASE_WINDOW #ffff
SET_WINDOW #00
STORE G41,#01
CALL_1N R0159
NEW_LINE
NEW_LINE
NEW_LINE
RTRUE
L0023: PRINT "
1. What are the six "good but wrong guesses" which deserve reward?
2. How many different songs can play on the wireless?
3. What are the eleven *** ways the game can end ***?
4. When does the daisy chain rustle?
5. What can you see in the crystal ball?
6. What's the other way to get Austin out of the attic?
7. Explain two of the initials on the handkerchief, and the graffiti.
8. How many Tarot cards are there altogether? (Hint: more than nine!)
9. What are the six puzzles which need not be solved?
10. What are the four-and-a-half ways to open the medicine bottle?
11. What is the mascot for in the premonition?
"
PRINT "
To see one of the answers, type its question number; or press ENTER to go back
to the menu.
"
L0024: PRINT_CHAR ':'
PRINT_CHAR ' '
STOREB G47,#01,#00
CALL_1N R0159
READ G47,G48 -> Gef
LOADB G48,#01 -> -(SP)
JE (SP)+,#00 [FALSE] L0025
NEW_LINE
RTRUE
L0025: CALL_2S R0021 (#01) -> L00
NEW_LINE
JE L00,#00 [FALSE] L0026
PRINT "There is no question zero.
"
L0026: JG L00,#0b [FALSE] L0027
PRINT "There are only eleven questions.
"
L0027: CALL_2N R0456 (L00)
NEW_LINE
JUMP L0024
orphan code fragment:
RTRUE
Routine R0456, 1 local
JE L00,#01 [FALSE] L0001
PRINT "1. Giving Aunt Jemima the wrapped parcel; or kissing
her; attracting Bateau Phlebas by waving the poster (which can be torn down) at
it; casting the Rod of Fire at the medicine bottle to try and open it (as
advised by your friendly neighbourhood demon); trying the postcard in the slide
projector; feeding Austin the chicken bone.
"
L0001: JE L00,#02 [FALSE] L0002
PRINT "2. Eighty. (The inspiration for the radio station came
about when the author was driving at midnight through Oxfordshire and the local
station played, in succession, the Moonlight Sonata, the Four Seasons, You Take
My Breath Away and Gold. So the radio plays the 80 most hackneyed radio tunes
the author could think of.)
"
L0002: JE L00,#03 [FALSE] L0003
PRINT "3. Missing the point completely; dying; winning; being
transported to Australia; becoming a constellation; being arrested as a
terrorist; being annihilated by a temporal paradox; being checkmated; and
disembodying the entire physical universe. One can also die-but-not-die with
the unluckier Tarot cards.
"
L0003: JE L00,#04 [FALSE] L0004
PRINT "4. Inventory shows the (magic) daisy chain rustling
when you are carrying something which could turn into a rod, but hasn't been
waved yet.
Similarly, the vanity mirror does not reflect rods or things which become rods.
And it makes the viewer beautiful...
"
L0004: JE L00,#05 [FALSE] L0005
PRINT "5. Apart from the projector beam's effects, looking
into the ball shows one of twelve little scenes, and these correspond to the
twelve zones of the game.
"
L0005: JE L00,#06 [FALSE] L0006
PRINT "6. Open the trapdoor, wait for Austin to jump down it
into the house, then close the trapdoor again. He'll scratch at it, but won't
be able to get back in.
"
L0006: JE L00,#07 [FALSE] L0007
PRINT "7. The Unreal City is based on the early poems of T. S.
Eliot (though he was half-quoting from Baudelaire). The handkerchief is not
Jemima's: it belongs to J. Alfred Prufrock (but its appearance also alludes to
"The Waste Land"). The graffiti behind the poster ("Shantih Shantih Shantih")
comprises the closing words of "The Waste Land", and is not (as one inspired
player suggested to the author) meant as an anagram of "has hint".
"
L0007: JE L00,#08 [FALSE] L0008
PRINT "8. 59. Nine can be carried, plus another 21 trumps and
29 plainer cards in the pack.
"
L0008: JE L00,#09 [FALSE] L0009
PRINT "9. Cleaning the crystal ball and investigating it;
ascending to the Heavenly Place; rescuing the lovely Andromeda by vanquishing
the Kraken; activating the smoke detector (the solution is inconvenient but
possible without); learning to speak Celtic, without which the end game is
perfectly possible but makes rather less sense. And restoring the ugly idol to
life, thus compensating Old Evans.
"
L0009: JE L00,#0a [FALSE] L0010
PRINT "10. Dropping it down the dumbwaiter shaft; dropping the
dumbwaiter onto it; running over it in the garden roller; dropping it from the
top of the beanstalk, and giving it to Aunt Jemima (though this doesn't quite
work out for the best.)
Dropping it down the fireplace chimney, however, does not work.
"
L0010: JE L00,#0b [FALSE] L0011
PRINT "11. The mascot is a red herring, the only really
substantial one in the game. It is extremely bad for you. You can't even give
it to Aunt Jemima. It scores -50, the demon advises you to hang onto it at all
times - and it was cursed.
"
L0011: JE L00,#0c [FALSE] L0012
PRINT "12. There are two ancient languages: a hieroglyphic and
a demotic writing, the important clue of course being the Rosetta stone to
compare the two. The hieroglyphics are loosely based on the beautiful system
devised by Michael Berlyn and Patricia Fogleman for their excellent game,
"Infidel", though I have taken care to ensure "Curses" reveals none of their
answers. The demotic script (written right to left) is my own invention, but
the numbers are Etruscan. (And are just about the only Etruscan words
deciphered - they were found on a gambler's die.)
"
L0012: RTRUE
Routine R0457, 3 locals
LOADB L00,#00 -> L02
STORE L01,#01
DEC L01
L0001: JL L01,L02 [FALSE] L0002
INC L01
STOREB L00,L01,#00
JUMP L0001
L0002: RTRUE
Routine R0458, 4 locals
LOADB L00,#00 -> L03
STORE L02,#01
DEC L02
L0001: JL L02,L03 [FALSE] L0002
INC L02
LOADB L01,L02 -> -(SP)
STOREB L00,L02,(SP)+
JUMP L0001
L0002: RTRUE
[End of code]
[Start of text]
S001: "CURSES"
S002: "a"
S003: "You can't go that way."
S004: "the"
S005: "the"
S006: "the"
S007: "the"
S008: "the"
S009: "the"
S010: "the"
S011: "the"
S012: "the"
S013: "the"
S014: "It is pitch dark, and you can't see a thing."
S015: "a"
S016: "."
S017: "."
S018: "A home for the bewildered. NE to stream, NW to lighthouse, SE to
extension, SW to Folly, N to onboat, S to projector, E to Cafe, W to Infroom, U
to cliffs, D to cave."
S019: "a"
S020: "This is rather dangerous, I'm afraid. Use only on vegetative matter."
S021: "a"
S022: "Well, that's not very useful, is it? I'd go on strike if I were you."
S023: "a"
S024: "It has no horticultural application."
S025: "a"
S026: "Well, where might you have seen infinity before?"
S027: "a"
S028: "Perhaps you should look up "husbandry" in a dictionary."
S029: "a"
S030: "Bronze is the key here. Have you seen any other bronze anywhere?"
S031: "a"
S032: "Far, far too dangerous. The age of martyrs in the church is long gone,
you know."
S033: "a"
S034: "Well, if there's such a thing as luck, maybe this would help."
S035: "the"
S036: "Astonishing! One of the three high Rods!"
S037: "An adamantine rod, bearing a sculpted hand on one end, and inscribed
with its title."
S038: "The High Rods of Life, Love and Death lean together in a pyramid at the
top of the steep slope, balanced rather delicately."
S039: "the"
S040: "Astonishing! One of the three high Rods!"
S041: "An adamantine rod, bearing a sculpted skull on one end, and inscribed
with its title."
S042: "the"
S043: "Astonishing! One of the three high Rods!"
S044: "An adamantine rod, bearing a sculpted heart on one end, and inscribed
with its title."
S045: "a"
S046: "Use only at heated moments, when affairs are delicately balanced."
S047: "The attics, full of low beams and awkward angles, begin here in a
relatively tidy area which extends north, south and east. The wooden
floorboards seem fairly sound, just as well considering how heavy all these
teachests are. But the old wiring went years ago, and there's no electric
light."
S048: "A hinged trapdoor in the floor stands open, and light streams in from
below."
S049: "There is a closed trapdoor in the middle of the floor."
S050: "some"
S051: "Open-topped. You could easily look inside, if so minded."
S052: "It was to have been the Honourable Peter Meldrew's life's work, a
two-volume edition giving the definitive family history. Unfortunately,
although he claimed to have hunted for evidence to the ends of the earth, he
never could find a detail he wanted for volume I, and it was never published.
Somehow, this typifies your family, and consulting this worthy book about your
ancestors makes you realise what an uncanny knack they had for never quite
achieving anything.
Unless, of course, you count having an awful lot of children. So many Meldrews
are listed here that you'll have to look them up individually."
S053: "What a boring old book! There's nobody worth looking up."
S054: "A graceful lady's box, bearing the initials A. M. and engraved with a
drawing of what seems to be a rabbit's foot."
S055: "In one corner is a jewellery box, which had previously been hidden by
the open trapdoor."
S056: "Try investigating the world of the romantic novel, out on the balconies
of life."
S057: "Actually a four-leafed sprig of herb paris (Paris Quadrifolia) in the
shape of a fourfold true-love knot. But that was good enough for Alison."
S058: "Not much use as it is, is it?"
S059: "Perfect for little pointy forks."
S060: "Please, please. This isn't that kind of afterlife."
S061: " Things to do:
1. Find map
2. Phone airport to check parking
3. Health forms...
and so on. Let's face it, 1. is more enticing than the rest put together."
S062: "Immensely useful, that."
S063: "The torch has a battery compartment which can be reached by opening it
up."
S064: "Pity you can't change the batteries."
S065: "Oatmeal covered with plain chocolate, since you ask."
S066: "I bet you didn't know that chocolate biscuit manufacturers are damned in
perpetuity? I'm afraid the chapters about that in the Old Testaments were
lost, though, and now no-one can remember why."
S067: "Once upon a time, servants in great houses lived in awful little
crevices and excuses for rooms like this one. They must have been in permanent
danger of suffocation, for there are no windows and only a doorway to the west.
A bed is still kept here, and the sight of it brings on drowsiness in all this
warm stuffy air. All you want to do is curl up and sleep."
S068: "A tight door stands open in the northern wall, giving onto the servants'
staircase."
S069: "Hobson's"
S070: "Lots of naughty words in that one."
S071: ""Hobson's: A Choice Classical Dictionary". It claims to have numerous
entries."
S072: "There's a little book on the tiny bedside table."
S073: "Made by Dunn and Co., naturally, with four stripes: royal blue, emerald,
dark grey and scarlet."
S074: "An old striped scarf hangs up behind the doorway."
S075: "The very height of fashion, if you ignore the colours and wear it
regardless."
S076: "Scruffy old furniture is piled up here: armchairs with springs coming
out, umbrella stands, a badly scratched cupboard, a table with one leg
missing... You try to remember why you keep all this rubbish, and fail. Anyway
the attic continues to the southeast."
S077: "The attic turns from north to southeast here."
S078: "It has a calm, soothing effect."
S079: "A patent "Harrison" bird-whistle, according to the slogan on one side."
S080: "Shame the wrapping paper won't come off."
S081: "Far too nice to give to anybody else. In fact..."
S082: "some"
S083: "The reindeer have enormous significance."
S084: "It is addressed to the house, and postmarked 1963, but has no message.
Odd, that."
S085: "There's no message there to read."
S086: "These bottles can even survive long drops, so perhaps you should try
fire."
S087: ""Antidote only: no preventative effect.""
S088: "This drug is for fun, it isn't an antidote. And it tastes gorgeous..."
S089: "The air is dusty and warm, almost making you choke in this rather empty
area. The attic turns from northwest to east, and there is also a tight doorway
leading west. A short flight of wooden steps leads down and to the south."
S090: "This is a roughly-furnished photographer's dark room, used by your
grandfather years ago. There's nothing much here now, since you threw the
chemicals out in case the children found them."
S091: "The only doorway is back east."
S092: "It is attached to the ceiling."
S093: "You bump your head on the cord hanging from the ceiling, for the
umpteenth time."
S094: "Things do look subtly different in this light."
S095: "When you can get this working, perhaps you should take it somewhere
prominent."
S096: "The kind of black box which often sits on top of a camera, used to
illuminate otherwise dim scenes. It has an openable compartment on the side,
with room left inside for a battery and a timer mechanism (which seem to be
optional extras)."
S097: "A rather more modern photographer's flash lies on a shelf to one side."
S098: "Once upon a time, this small circular room had a dome and a telescope,
but it leaked dreadfully and so now there's a proper roof.
A circular mural painted with the signs of the zodiac is interrupted by a short
flight of stairs leading up to the north, a smoke detector, a west doorway to a
shadowy alcove and the continuation of the stairs down and to the south."
S099: "It isn't at all clear on what principle the detector works. It looks
like a smoke detector, certainly. But you just left the contractors to sort out
all those boring fire prevention matters for themselves.
They were a slap-dash firm, too, from what you remember. They put the little
white thing high up, right in the middle of the Capricorn scene on the mural.
And even if there was a fire, chances are it would be useless."
S100: "Mounted on the old telescope stand is what looks like a solid glass
ball."
S101: "The ball is scratched and misted up."
S102: "Once upon a time, the house library was used as a gun-room, and all the
unwanted books kept up here. Now this is just another awkward cranny, with a
water tank and some pipes in one corner which are something to do with the
central heating."
S103: "From here, you can only squeeze back east to the observatory."
S104: "Don't bother reading or thinking about it. Nothing to do with your
family."
S105: "A romantic novel and a book of poetry are the only books left, and
they're propping up a water pipe near a rather loose joint - it really is time
you called a plumber to sort this one out."
S106: ""Coronets for the Cotton Girl", by Miss Marie Swelldon, published
London, 1912. It's all about the happy-go-lucky daughter of a Yorkshire mill
owner and her adventures marrying into the aristocracy."
S107: "My my, a golden age for clear, simple poetry. At last, an end to the
dreary obscurity of Tennyson, Kipling and Hardy."
S108: "This is where you ought to have left the wretched map, in the family
lumber-room of souvenirs and holiday snaps. You checked it thoroughly earlier,
and can't bear the thought of searching it all again. A slide projector is
aimed at the whitewashed south wall, one of the outside walls of the house. The
only way to go is back up to the observatory."
S109: "It has an on/off switch on the side, and a slot for holding whatever is
to be projected. There is also a little dial on the back, perhaps for the
focus."
S110: "This tight annexe at the eastern end of the house is piled up with old
loft insulation rolls, left over from the last time the job was done (whenever
that was). A gap between the tiles of the roof (which you really must mend
before winter) lets a little natural light in, but the attics to the west and
south are dark."
S111: "some"
S112: "That is a difficult puzzle, yes."
S113: "In the north wall is an open cupboard door, large enough to step
inside."
S114: "In the north wall is an intriguing closed cupboard door."
S115: "The winding attic comes to a dead end here, and particularly dirty it is
too, what with soot everywhere from the broken old chimney sweeping gear."
S116: "It might be handy, if only it could carry anything."
S117: "Great Scott! That old canvas rucksack must be the very one your famous
ancestor, the African explorer Ebenezer Meldrew, brought back from the Zambeze
Expedition of 1882!"
S118: "On second thoughts, now you look at more closely, it seems to be the
rucksack you bought to go to Paris with five years ago."
S119: "A secret door stands open in the south wall!"
S120: "The secret door is closed."
S121: "A hatchway in the east wall, onto an old iron fire escape, is open and
light floods in through it. (Some fool must have set the alarm off.)"
S122: "This is a surprisingly spacious cupboard, which you can't recall ever
visiting before today. You really ought to use this convenient empty room for
something..."
S123: "Carry this with you everywhere you go."
S124: "A large painting of Mad Isaac Meldrewe, your eighteenth-century
ancestor, is propped up against the west wall."
S125: "It used to hang in the downstairs landing, and the red, deranged eyes
annoyed everybody who passed. Then Aunt Jemima picked up the ridiculous idea
that it was by Sir Joshua Reynolds and had it valued. Happily it wasn't and, to
cut a long story long, it ended up here."
S126: "There is a big iron fireplace in the west wall."
S127: "The skylight above is open, and the sky does indeed light the room."
S128: "Above you is a blacked-out skylight with a crank handle."
S129: "It was painted out black during the first wave of Zeppelin air raids in
World War I. This is completely irrelevant, but you did ask."
S130: "The cork filters have gone. It's useless now."
S131: "This is a recessed area of the roof, open to the skies but screened from
below. There used to be a flagpole here, but not any more. An open skylight
leads down, and a fairly safe catwalk leads northwest. However, the red-tiled
roof is vertiginous and you have vertigo, which makes it especially annoying
that there's an odd little balcony too far away to the south."
S132: "William Wordsworth once described poetry as emotion recollected in
tranquillity. If so, hospitals must be full of people turning out verses about
what it was like to fall off the roof of a high building. Perhaps it might be
better not to join them."
S133: "The old crenellated battlements of the house. An Englishman's home is,
of course, his castle, but Meldrew Hall never saw much fighting and these
military-looking features were just a seventeenth-century fashion. They also
weren't intended for standing on, and the only safe way to proceed is back
southeast.
It is peculiarly cold here."
S134: "The rooftop is far too dangerous in that direction."
S135: "Unfortunately, what you need this for is up in the clouds."
S136: "He is dressed in a grey shadow of Georgian finery."
S137: "The chimney is cramped, sooty, unpleasant and has no floor to speak of,
so you are held up only by jamming your feet against the walls. To the east,
through the fireplace, is the cupboard."
S138: "Not a chance!"
S139: "Wedged loosely in beside you is a sooty old stick."
S140: "It's exactly what it seems."
S141: "Good heavens, so the house has a priest hole after all! It was always a
family legend but nobody seemed to know quite where it was. Apart from a cross
painted on one wall and a padded floor (to absorb the noise), this spartan
cranny is featureless. Nevertheless there is a spooky air of the supernatural
about... A narrow crawl leads up into the chimney."
S142: "An open hatch-door in the wall at floor level reveals a chute leading
down into darkness."
S143: "Low down on one wall is a little hatch door, which if it were open would
be large enough to enter."
S144: "Perhaps the attic key might unlock it? It does look modern compared to
everything else here."
S145: "an"
S146: "The really good research was in his earlier years."
S147: "The dust and grime on the floor almost obscures an ancient prayer book."
S148: "Despite appearances, this is not a prayer book after all but is Mad
Isaac's diary of supernatural investigations! The script is cursive and
cursory as he rambles on through all those theories about the Curse. There's so
much of it that you'd better just look up particular years."
S149: "A pleasantly furnished, if now mildewed, box room. There are engravings
of Alison's heroines: Christina Rossetti, Elizabeth Browning, Emily Dickinson
and Queen Victoria, an unlikely quartet. The wallpaper is done out in a dice
motif, and a square outline of sixes surrounds a rather small door leading back
north into the attics.
The room is provided with a comfortable bed, which looks very inviting."
S150: "There's just the secret north door, unless of course you count the
windows."
S151: "Black-latticed windows open on a beautiful summer's day."
S152: "Blue sky can be seen through south-facing windows, latticed with black
lead and shut tight."
S153: "A tiny balcony around Miss Alison's windows, offering fresh air, blue
skies and a magnificent view over the gardens down to the droning motorway in
the distance. The roof is too perilous to scale even if you had a good reason
(which you haven't), so you had better go back north."
S154: "The rooftop is far too dangerous in that direction."
S155: "You look down on a low, bare window-sill."
S156: "The balcony is only a foot or so beneath the window-sill, and only about
four feet square."
S157: "Gold and lead are naturally related, so you want to find a lead box to
open."
S158: "This small cavity at the north end of the attic once housed all manner
of home-made wine paraphernalia, now lost and unlamented. Steps, provided with
a good strong banister rail, lead down and to the west, and the banister rail
continues along a passage east."
S159: "Faded ink on the label reads: Elderberry '63."
S160: "It's provided for your torch, and not for anything else."
S161: "On the side is the word "Achtung"."
S162: "Purely decorative."
S163: "The good news is that it has excellent grid references, which are easy
to look up. The bad news is that it is a map of central Hamburg."
S164: "A disused storage room off the winery. In one wall is an opening onto an
ominous dark shaft, and beside it is a big Victorian-steam-engine style wheel
with a handle on."
S165: "The only doorway is back west to the winery."
S166: "There is a concealed safety catch (poorly) hidden on the wheel."
S167: "the old"
S168: "Inside the dark shaft is the old dumbwaiter."
S169: "Uninviting."
S170: "The dumbwaiter hangs on strong pulley ropes which stretch up and down
from here."
S171: "It isn't even mentioned in any of the books I've read."
S172: "The half which didn't get the wish, actually."
S173: "A steel wrench gathers dust in the corner."
S174: "Halfway up, or else halfway down, and a dreary place it is too: nothing
but a dark corridor leading north."
S175: "A passage which slants very slightly down to the south, which is full of
coal dust, to which you are unfortunately allergic. Not somewhere to linger."
S176: "A secret passage slants down to the east through a sandstone recess."
S177: "There is a shallow sandstone recess in the east wall."
S178: "At the north end is a metal door, standing open."
S179: "At the north end is a closed metal door."
S180: "Cobwebbed old cellars. There is nothing to see except an opening in one
wall onto a dark shaft, and a big Victorian-steam-engine style wheel beside it
with a handle on. The cellar continues west and south."
S181: "There is a concealed safety catch on the wheel axle."
S182: "Uninviting."
S183: "There is a little closed window-vent low in the north wall."
S184: "You can just make out an impression of golden light."
S185: "A plain old piece of timber."
S186: "An old timber prop, once the spar of a main mast."
S187: "The broken flagpole, a plain timber spar, lies beside the mast."
S188: "It can't even follow orders."
S189: "In one corner is a dust-covered robot mouse."
S190: "Remember the late 1970s, when a craze for home-made robots swept the
home computing world? No, perhaps not, but here is a left-over from it anyway.
The mouse is quite large (almost a foot wide and tall), and has a big smile
painted on its metal chassis. It has surprisingly modern circuitry in, though,
and is even humming very faintly, so someone must have put some work in on it
recently."
S191: "The bricking-up of this cellar seems incomplete, because there is a hole
about ten or eleven inches across in the west wall. You peer at this with
interest but nothing is within reach inside, and it is far too small for you to
wriggle through. The cellars go back north, and so, it would appear, do you."
S192: "It isn't the attic key, I fear."
S193: "Brass is of course a non-magnetic copper-zinc alloy, so presumably this
key also contains iron."
S194: "Lying where the mouse dropped it is a small brass-coloured key."
S195: "The west end of a disused and shadowy old cellar. It used to be a wine
cellar, but was bricked up when you were a child - you never did find out why.
Perhaps the golden, jewelled staircase leading down into smoky mists to the
south might be something to do with it."
S196: "In the northwest wall the ironbound door stands open."
S197: "In the northwest wall is a heavy, imposing ironbound door."
S198: "There are times when your life seems an endless sequence of locked
doors, each harder to pass than the last. This one, though, has a feeling of
the ultimate about it."
S199: "An eerie, dark cave carved from crystal icicles of rock and strewn with
great spiders' webs hung from the ragged stone, inhabited only by dead white
insects. A narrow crevice opens out to an iron doorway and the warmth of the
house.
The rough stone floor levels out to a perfectly round, smooth white marble disc
about five yards across, inscribed with a black lemniscus (or infinity) symbol.
You shiver with foreboding, but inexplicably feel that the map you're looking
for must be somewhere near here."
S200: "There is now a small spherical opening in one wall."
S201: "It would just hold a ball the size of your palm."
S202: "This used to be called the Conservatory, before Aunt Jemima took it over
to potter about with plants, painting and indeed (on occasion) pottery. She has
filled the place with objets trouves and bric-a-brac, and hung up a home-made
calendar of watercolours. Even the old airing cupboard to the south is
cluttered.
An open doorway leads back southwest onto the upstairs landing, and you can
hear the chaotic noise of suitcases being manhandled about - good thing
nobody's seen you. A narrow staircase leads up and to the east into the attic.
Jemima herself seems to be in the potting room to the west."
S203: "A space about six feet square. The old drying racks now contain odd
ceramic sculptures almost but not quite unrecognisable as coffee mugs. One
corner is filled with an enormous pile of tie-dyed sheets, from Aunt Jemima's
infamous Sixties Revival period of last October."
S204: "The only way to go from here is back north."
S205: "It rolls on casters, and has a bakelite on/off switch."
S206: "To one side is a heavy cabinet on casters containing an antiquated
wireless, the kind with glowing valves inside. On the top is a bakelite on-off
switch."
S207: "To one side is a heavy cabinet on casters containing an antiquated
wireless, the kind with valves inside. On the top is a bakelite on-off switch."
S208: "This light room is full of pot plants, flowers, seeds, ornamental
trowels and other miscellaneous garden implements."
S209: "The only exit is back east to the conservatory."
S210: "some"
S211: "Good for nothing. Why would you want gloves on?"
S212: "A pair of yellow rubber gloves hangs from a hook on one wall."
S213: "Aunt"
S214: "She's been fiddling about with those cut flowers all afternoon. And
she's a bit upset at being left alone in the house while you're off on holiday,
so best not to get on her bad side. You really ought to make it up to her
somehow."
S215: "Aunt Jemima, who has for years collected varieties of daisy, is engaged
in her regular annual pastime of deciding which species make the best chains."
S216: "Dangerous to wear. But at least any sort of daisies will do."
S217: "It is a frosty, clear night, but there is a scent of camp-fires burning
in the distance. You are passing through the landscape as if a ghost, and all
seems faintly unreal. To the east is one side of an animal-hide tent, but there
is no way in from here. To southwest, some soldiers sit around the embers of a
fire. There is a terrible sense of something about to happen."
S218: "This is the tent of a thin, reedy man who wears no uniform but has an
obvious and commanding presence. He has an aquiline, patrician nose and, at
five feet four, is taller than anyone else present. The others are advisers,
junior officers, scheming politicians and their like. They are keeping their
distance from a trestle table at the north end of the tent."
S219: "This is a kind of improvised shrine. A trestle table bears entrails,
crude drawings sketched out on hide, and caged animals: draped beside it is a
primitive tapestry of a bear reared up on its hind legs."
S220: "An absolute essential."
S221: "On the table is a heavy iron mascot of some kind."
S222: "The mascot is in the shape of an ankh, with a lemniscus (or infinity)
symbol moulded onto it."
S223: "You can almost smell fear here. A motley platoon of soldiers are sitting
about the embers of a fire. None are talking or sleeping, and the false good
humour of the evening has died away. At first light, you realise, there will be
a battle. It isn't a risk you'd like to run in their place. And there is a
strange light already in the east... not yet a dawn, for the soldiers seem
unaware of it."
S224: "A standing stone, perhaps a glacial erratic, stands here and on top of
it is a shining blue stone, whose brightness almost blinds you. You feel
irresistably drawn to it, and your hand reaches out..."
S225: "In the lush, verdant (which is to say, under-cared for) gardens of
Meldrew House, where a stream gurgles pleasantly as it meanders through reeds.
The house rises up high above you to the south and you do not dare go east for
fear of being recaptured by the rest of the family, so you'll have to go
northwest, deeper into the gardens."
S226: "Better not go that way... you might get caught."
S227: "On the house wall is a coal bunker, whose door stands open."
S228: "On the house wall is a coal bunker, whose loading door is shut."
S229: "You stand in the shade of a great plane tree, seedlings for which were
brought back from Spain by an ancestor of yours in 1806. To the southeast is a
stream, to the west is a small clearing and to the north a single break in the
green privet hedge marks the entrance to the famously difficult Meldrew Hall
Maze. A signpost reading "To the Mosaic" points east across the lawn."
S230: "Several hundred years of rolling have made this a rather fine patch of
grass, between the privet hedge (north), the plane tree (west) and the mosaic
(east). Unfortunately, it is adorned with all the really ugly ornaments
(gnomes, plaster nymphs, stone windmills to grow flowers in), this being the
corner of the garden least visible from the house."
S231: "East or west."
S232: "This sunken corner of the garden has been excavated and then covered
over with tough perspex to protect it from visitors' shoes. It consists of a
time-worn Roman mosaic, divided into four quadrants, each showing scenes of
idealised Roman life. There was probably a villa on this site, but your family
has never been keen on archaeologists so the excavations went no further."
S233: "From here you can climb back up to the lawn."
S234: "A clearing at the edge of the garden, surrounded by walls and the privet
hedges of the maze. To the east is the plane tree, to the west an opening in
the wall makes a garage entrance and to the south is a small vegetable garden."
S235: "A recently-turned vegetable garden, using up a shady corner of the
garden. The patch testifies more to good intentions than horticulture."
S236: "From this corner, you can only go back to the clearing."
S237: "A giant runner-bean plant leads up vertiginously into the sky from
here."
S238: "Only a runner-bean plant graces the vegetable garden."
S239: "A modest brick garage, built into the garden walls. A big open doorway
leads east onto the clearing."
S240: "A motorised garden roller of the kind you sit inside, among whose simple
controls is a big on/off switch."
S241: "The garden roller sits here, its engine still running."
S242: "A big motorised garden roller is parked here."
S243: "The funny thing is, they didn't have weedkillers in the early nineteenth
century, and yet they still planned some marvellous gardens."
S244: "If squeezed, it squirts weed killer over the ground. There are many
warning labels about getting it on one's hands."
S245: "In the shadows is a weed killer bottle."
S246: "A magnificent view of the gardens would be yours, were it not for the
branches and leaves which surround you. You can make out Aunt Jemima up at the
conservatory window, but hide from her view. Down below, the privet-hedge
layout of the maze can be seen through the lower branches."
S247: "No, don't go out on a limb."
S248: "A maze of green privet passages, all alike."
S249: "The privet hedges are in the way."
S250: "This is an old stone patio in the heart of the garden maze. A missing
flagstone offers an intriguing dark prospect beneath."
S251: "The privet hedges are in the way."
S252: "Sticking out of some soft earth is a perfectly-carved marble rose."
S253: "Perfection set in stone. Not a gift for mortal women!"
S254: "A dismal crypt, disused, full of leaves and rainswept. Light streams in
from the square hole in the roof. There are no bones or urns on show."
S255: "The mural stands slightly to one side, revealing a passage leading
downward."
S256: "The south wall forms a giant bronze mural, which has stood the test of
time."
S257: "The mural depicts an old bearded wise man following a star in the
western sky. He has his right arm around an attractive young woman and holds a
bundle of wands with his left hand. Around the border are astrological symbols
of all kinds, from Tarot suits to zodiacal constellations."
S258: "An eerie passage, running down from an opening at the north to murky
depths in the south. The walls are jagged, uneven and decorated with bones. An
unpleasantly stale, charnel odour drifts in through a gap to the east."
S259: "You appear to be standing on a wrought iron key."
S260: "A figure-eight double ring, a long barrel and a finely-cut ten-groove
claw: this is the ultimate in keys. It is superb."
S261: "A long, winding, vile passage through the earth, running east to west.
The distasteful odour grows stronger as you go east."
S262: "Well, perhaps "sarcophagus" is a little melodramatic, but it's that kind
of moment. This must be somewhere under the old parish church. You are stooped
over inside a stone tomb, stained and crumbled with decay, broken only by a
crevice you crawled in by. It is a nightmarish place."
S263: "A large, grisly cave, deep under the garden, dimly lit and eerie.
Darkness curls around the natural pillars of rock like a mist: and there is a
peculiar, vaguely familiar odour to it. The only obvious routes out are an
uneven passage climbing to the north and a crawl west."
S264: "You bumped into something unpleasant there."
S265: "The cartoonist Heath Robinson used to specialise in drawings of
fantastically complicated machines of string, pulleys, levers, counterweights,
cogs, mice running about on wheels and the like. Just such a contraption fills
the west end of this room, though most of the workings are behind a glass wall
which, although running with age, is as solid as the day it was built. The
parts are very old (hand-made, not machined) but uncorroded.
The only way out appears to be via the crawl to the east."
S266: "The whole wall is occupied by a bronze mirror, reflecting the room."
S267: "The north edge of the room is a big sheet of dull amber-coloured metal."
S268: "Someone rather good-looking (you can't help thinking) is reflected in
the metal surface."
S269: "How tantalisingly valuable it seems."
S270: "Solid, heavy, reliable, out of reach on the other side of the glass."
S271: "A treasure in every sense, but misted over, like condensation on a cold
window. Odd shapes seem visible through the haze: a horse's head, castle walls,
a priest's crook."
S272: "Sitting on the grass, beside the well, is a glowing golden orb."
S273: "You half-stand, half-float in a golden, misty sphere perhaps ten yards
across, which slowly spins. The centre, out of reach and somehow insubstantial,
is an eight-by-eight lattice of oblong crystals, bathed in warm pearly light."
S274: "Images lurk about the array of oblong crystals."
S275: "They are extremely hard to see and impossible to touch, as if you can
only catch anything at all through the corner of your eye."
S276: "You really should try to be more awestruck, for this is Merlin's cave,
the hub of Creation. Every visitor perceives this place differently, according
to his or her own myths and beliefs. Your particular creed being science, there
is only a black metal one-metre cube with an unimpressive collection of gauges
and dials. An aluminium staircase leads up."
S277: "The lower, on, position is labelled "Determinism". The upper, off,
position is labelled "Chance"."
S278: "This flagstoned rampart on the hillside looks across the valley, down
(unfortunately) to the motorway below. Coaches pass by, reminding you of the
rapidly approaching time when visitors will have to be let in again for the
summer. The only safe way to go is back east into the maze. To one side is a
plaque."
S279: "The hillside is too steep."
S280: "A miniature plastic etching rests on the plaque."
S281: "What's the point of a drawing so small it might almost be a playing
card?"
S282: "No larger than a playing card, it depicts the Folly which used to stand
on the hillside outcrop."
S283: "This is a rampart on the hillside, a natural ledge leading east. Down
below in the valley, rough cottages surround a church. Labourers toil in the
fields, and a hay wain is being pulled across the river.
Towering over you is a monstrously awful piece of architecture, a Folly. The
freestanding tower has no appreciable purpose and no apparent entrance. The
latter is just as well since it looks extremely unsafe."
S284: "The hillside is too steep."
S285: "Whatever you do, it'll always be a bean pole."
S286: "A bean pole, of the kind used to grow climbing plants, rests against the
side of the tower."
S287: "At the top of the beanstalk, in amongst the clouds. There is no safe way
to go from here except back down, not surprisingly. A dangerous way might be to
step out onto the clouds to the north, but even if this is a fairy-tale it
would be taking a lot on trust."
S288: "The clouds are too tenuous that way."
S289: "A square grid of plots of grass and seedbeds, all alike."
S290: "Capability Meldrew and his gang of workmen are delicately planting a
sapling plane tree here. Your disturbance annoys them immensely and you are
immediately arrested for vagrancy and theft. After a few months in prison, you
are hauled up before the County Assizes and sentenced..."
S291: "The Museum of Arcana is deserted after nightfall and only dimly lit by
distant sodium street-lamps. Outside it is a stormy October night, and rain
beats against the windowpanes. Shadows swoop and dive in the air like bats.
The revolving door to northeast, which leads out, seems to be solidly blocked
off. But a dim passage runs south, through a strange metal corridor."
S292: "There's no apparent way but south."
S293: "A publicity poster is displayed for passers-by outside to see."
S294: "One of those pretentious exhibition posters. Your German is just about
adequate to the task:
"Cults of the Druids - a Major Retrospective, October-November 1988"."
S295: "Inside one quarter of the cramped revolving door, which is blocked off
from the world outside and opens only onto the foyer, southwest."
S296: "To north and east are the walls of the door."
S297: "You stand within it."
S298: "Inside one quarter of the cramped revolving door, which is blocked off
from the world outside and opens only onto the foyer, southwest."
S299: "To north and east are the walls of the door."
S300: "You stand within it."
S301: "A colourful, striped inflated beach ball bounces around in the door."
S302: "A great square gloomy room, just south of the foyer. There are square
lintelled doorways east and west. The storm is dark, and the windows are high,
but there's just enough light to see by."
S303: "There's nothing worthwhile in it."
S304: "Resting on a little display table is a Tarot box."
S305: "A long painted still life graces one wall near a corner."
S306: "A disturbing painting, perhaps by Edvard Munch, this is a still life of
a seedling on a table, surrounded by a rusty iron rod with a star on the end, a
glass bottle, a lamp and a bunch of keys. No doubt these arcane objects held
some special significance for primitive tribes now absorbed into civilisation."
S307: "A dark staircase, turning from east to south as it descends. The hideous
sound of rhythmless chanting can be heard from below."
S308: "On one step, an empty matchbook lies discarded."
S309: "Ah, I fear it is only a token clue."
S310: "It's from the Ruined Castle Cafe, and (like the Cafe) is matchless."
S311: "A stone castle on a hill."
S312: "It leads nowhere."
S313: "A single bright light in the darkness."
S314: "Ugh, what a nasty bright light. Good thing you'll never go there."
S315: "There's less to this card than meets the eye."
S316: "Andromeda chained to a rock on the sea-shore."
S317: "What an ugly girl! Bet she's good for a laugh though."
S318: "It leads nowhere."
S319: "It shows a great many crystal-glass cups and glasses."
S320: "An old administrative office of the museum, emptied and made into a
prison cell: amateur but effective."
S321: "There's definitely no way out of here."
S322: "Just a crook. And what's wrong with crooks, that's what I say."
S323: "The door to the south stands open."
S324: "As you might expect, the cell door is closed."
S325: "This is a city side street, but as if seen through the grey of despair.
People stream by, some of whom you almost recognise, as if dead. The street
runs east-west, and to the north is a doorway into a grubby tenement building."
S326: "This shambolic flat, which extends to the east, shares a filthy hallway
with the one upstairs. To the south, passers-by pass by along the street.
Peeling-away posters have been stuck up on top of each other on the walls, in
such a way that you can only read the most recent."
S327: ""Bateaux Phlebas - toujours le dernier mot". You briefly wish you had a
dog called Toto, so as to be able to say "Toto, I've got a feeling we're not in
England any more.""
S328: "What a very useful piece of paper. Pity there's writing on it."
S329: "Flats occupied by starving-but-noble artists can be romantic and stylish
despite the squalor. This one, however, is simply a one-room hovel, caked with
paint, littered with brushes and improvised easels, and you can't help standing
on tiptoe here."
S330: "The stairs end at a shabby room, with screened windows, lit by incense
sticks and sevenbranched candelabra. A doorway with a hanging bead curtain
leads west. In the centre of the room is a table, on which is an electric bell
push and a wicked Tarot pack."
S331: "She has a bad cold, but nevertheless is known to be the wisest woman in
Europe."
S332: "Hood, scythe, skeleton, implacable grin: yes, it's the Reaper all
right."
S333: "It's vital you slide right along with this one."
S334: "Don't worry, he won't slide down the cliff."
S335: "The Fool is a man looking directly ahead as he steps off the edge of a
cliff."
S336: "He's one of my colleagues now, of course."
S337: "Those are pearls that were his eyes..."
S338: "Shoddy workmanship, but never mind, it's only a staff and who needs
those any more?"
S339: "Down at the end of the street, the brown urban waters carry by
unpleasant rubbish, and rats scuttle up and over the mounds washed up around
you."
S340: "People had no style in those days, before they invented paper tissues. I
mean this tatty cloth wouldn't attract anyone, would it?"
S341: "On one especially repellent mound is, of all things, a fine silk
handkerchief."
S342: "Monogrammed J. A. P., but that's no great matter."
S343: "The side reads: PHLEBAS."
S344: "Moored close to the bank is a glass-roofed tourist boat."
S345: "On the far bank is a glass-roofed tourist boat. As much as you like to
explore, you can't see how to attract its attention."
S346: "A tourist river-boat, glass-roofed. You can climb out to the shore to
the east. At the helm is a very strange man, at times almost a straw dummy,
almost perhaps a hollow cut-out made of paper. He (or it) turns the wheel and
casts his eyes to windward."
S347: "Every now and then he whimpers."
S348: "The hollow man mechanically says: "Where to, guv'nor? Me with my big
mouth, I gone and done it again, calling you the guv'nor. I was down Margate
Sands way once, had a bloke come on board, he thought any old destination would
do, like a real place, like anywhere was real... We are the hollow men, I says,
he didn't like that... Hurry up, please, it's time.""
S349: "A dry, desolate waste of buildings borders here on a main road, so full
of black-suited pedestrians off to work at banks that you can't force your way
any further east. Once in a while a few of the bowler-hatted army step into the
street and down some steps below a Metropolitan sign."
S350: "You can't force your way through the tide of bankers."
S351: "This is a vast underground station in great rectangular caverns, deep
beneath the streets. You are outside the ticket gates, near a flight of steps
back up to the city, and since you haven't a ticket you're likely to stay that
way."
S352: "Back up the stairs for you. Call yourself a traveller..."
S353: "Behind a kiosk, a surly-looking man is selling guide books and maps."
S354: "His jumper is unstriped, and there are no onions around his neck.
Nonetheless he has a rather Gallic, disgruntled look to him. Perhaps he's a
former Socialist cabinet minister."
S355: "Burn it! Burn it at once!"
S356: "What a very useful map! Now you can go on holiday."
S357: "Just the way you remember yours having been."
S358: "This crowded, bohemian cafe bears only a passing resemblance to the
ruined castle of the Tarot card: the decor imitates castle walls and
arrowslits. You find yourself sitting at a table for one in the centre of the
cafe floor. It is noisy, bustling and cheery, and a string quartet plays
Strauss under the chattering of German voices. Your chances of attracting a
waiter are very slight."
S359: "The crowd is lively and exciting, but also inconsiderate and bulky."
S360: "It contains a timer-detonator, a bundle of plastic explosives and many,
many wires. The most obvious ones are green, red, blue and black. They would
pull out of their loose sockets in the timer easily, so perhaps this bomb
disposal nonsense isn't as tricky as people make out."
S361: "Taped loosely to the underside of the table is a complicated-looking
bomb."
S362: "Time flies down here, you know. Eternity simply breezes by."
S363: "Good photographic gear that. You didn't get it from a... well, a bomb, I
hope."
S364: "This basement room is filled with crate after crate of glasses and cups,
enough for an entire hotel, or restaurant perhaps. Almost anything might be
hidden among them. A little light comes in from an opaque skylight which is at
street level outdoors. There is no way out of here, since the only door is shut
tight."
S365: "There's no apparent way out of here."
S366: "Old, unwanted, dusty, empty."
S367: "The great challenge, of course, is to get a ship inside."
S368: "An unlabelled whisky bottle, laid on its side and mounted on a wood
plaque, lies deservedly unwanted on one of the crates."
S369: "Oh, well done! Why not take a closer look, you deserve it?"
S370: "Within the whisky bottle is a model sailing ship, far too large to have
passed the neck."
S371: "The great challenge, of course, is to get it inside a bottle."
S372: "A superb model sailing ship, about six inches from prow to stern,
immaculate in every detail from an anchor on a filigree chain to a carved
mermaid up front."
S373: "The great challenge, of course, is to get it inside a bottle."
S374: "A tightly-folded bundle of sticks, about six inches long, with a
filigree chain and anchor hanging from it."
S375: "A rough rocky sea shore below barely-climbable cliffs, against which an
inviting deep blue sea laps. It seems to be early morning, soon after dawn,
from the look of the sun on the water."
S376: "The rocks are too dangerous. You'll have to scale the cliff."
S377: "Chained to the cliff face is the beautiful Andromeda, looking nobly out
to sea as she awaits her fate."
S378: "Andromeda's"
S379: "A long clasp of amber, perfect for long straggly Greek hair."
S380: "Mmm... it still has her perfume on it. Hehehehe. Bet she's dead now."
S381: "On top of some exposed cliffs on the Mediterranean. A dangerous slither
down leads on one side to the shore, all other ways down being even more
hazardous. Atop the cliffs is the Pharos tower, a round stone pinnacle
lighthouse, but there is no way in from here.
A grassy walk leads east, and a narrow crack leads southwest into a cave
mouth."
S382: "There's only dull grassland that way."
S383: "A long clifftop walk by the sea, from the lighthouse to the west to the
village not far east. These fields are occupied by herds of hardy mountain
goats, continually butting each other and frisking. To the south a path leads
across sparse grassland to a great outgrowth of some kind."
S384: "There's only dull grassland that way."
S385: "The rather sparse rolling landscape is dominated here by a massive, and
suspiciously unnatural, wall of thorns, which forms a great ring about an area
perhaps a hundred yards in diameter. There are goat pastures to the north."
S386: "There's only dull grassland that way."
S387: "A ragged gap in the wall has been burnt out to the south."
S388: "The wall rustles and clashes its thorns like a beast alive."
S389: "It's hard to imagine what could possibly shift a wall like that."
S390: "Here inside the thorn wall, a north-south path leads across sacred earth
into the imposing marble Temple of Zeus. You feel distinctly uneasy walking on
such hallowed turf. There are any number of myths about gods getting cross
about that sort of thing."
S391: "The wall of thorns hems you in."
S392: "The beautiful candle-lit Temple of Zeus, a cavern of marble pillars
which is quite empty and featureless save for the entrance at the north. So
much for all the rumours about hoards of treasure - it looks as if Zeus (who
is, by the way howling with anger outside) was bluffing all along.
Cloisters lead southeast and southwest, deeper into the temple."
S393: "one"
S394: "On one side, a man's face: on the other, a symbol, I. One obol, or
one-sixth of a drachma."
S395: "This currency is only valid in ancient Greece. Where on earth have you
been?"
S396: "A long walk along the cliffs from the lighthouse leads naturally here,
just outside the Eraina Taverna, whose open doorway lies to the south."
S397: "There's only dull grassland that way."
S398: "Only a small, thorny, unclimbable fig tree."
S399: "A plain but cheery taverna, fill of miserable and rather ashamed men who
are drinking retsina heavily. The day is dawning outside the north door, but
they strangely do not share your uplifted feeling at the sight."
S400: "The tavern entrance is to the north."
S401: "A speciality dessert of the Taverna: ice cream, kateifi, raspberry
sauce, cream. An acquired taste."
S402: "Left untouched on one table is an Ekmek Special dessert."
S403: "Better with chocolate ice cream, I think."
S404: "Doesn't somebody else need this more than you?"
S405: "Morose and unconvivial at the best of times. This is not the best of
times."
S406: "Behind the bar, a depressed bartender polishes glasses."
S407: "You stand atop a pinnacle of stone, on an early Pharos, or lighthouse.
Considerately enough, the builders have provided a spiral staircase down.
In the centre of the pinnacle is a marvellous device of polished bronze
mirrors, its open end pointed out across the bay. "
S408: "Being a lighthouse, this pinnacle is way up in the air. Point taken?"
S409: "A brown-tinted frieze, depicting hunters and spear-carriers, surrounds
this dark stair-well, which has no exit except for a spiral staircase leading
back up."
S410: "This is a murky hillside cave, whose mouth opens to the northeast,
though a tight squeeze might lead a little way west. Outside is a clear starry
night. There is no traffic noise, and the air smells fresh."
S411: "Hanging up on an iron bracket is a flaming torch."
S412: "It is a summary of the writings of a polemical monk called Gildas, and
relates to events following the fall of the tyrant Vortigern at the turn of the
fifth century A.D. After dark decades of pillage by Saxon mercenaries, Britain
was reunited by Ambrosius Aurelianus and then defended at the Battle of Badon
Hill, some time in the early years of the sixth century.
This remarkable victory was of no religious significance, so Gildas does not
dwell upon it. He tends only to mention bad kings and leaders, and then chiefly
to insult them. (Talking about Gildas is an excellent way to annoy an
Anglo-Saxon historian.) Nobody even knows where Badon Hill is any more, or
anything else about it, although some students of Welsh poetry believe
Ambrosius was the source of the legend of King Arthur."
S413: "An uncomfortable spur of rock on the hillside crags. The only natural
access to this spot is a crevice in the hill to the east, but there is also a
securely fastened rope hanging down into the darkness."
S414: "The crags are too precipitous."
S415: "You are hanging perilously on a hemp rope, suspended from an overhang of
rock above, which drops down into the darkness of the valley. On the tracks
below, patrols of men can be heard, and you feel instinctively that they are
not friendly."
S416: "Up and down are it, quite frankly."
S417: "A single yellow daisy grows from a little tuft of grass on the crags."
S418: "The geography is strangely familiar here. You are on a natural shelf on
the hillside, overlooking the valley below. An all-but invisible cleft in the
rock leads to a cave to the southwest, and the slope can safely be traversed to
the east.
It is a brightly moonlit night, cool as in late spring. There will be a sharp
frost tomorrow. Down in the valley, a great cartwheel circle of camp fires
illuminate some dark shapes, perhaps crude encampments. There is no other sign
of civilisation."
S419: "The hillside is too steep."
S420: "You stand beside a Roman villa, whose columns cast shadows of an Empire
in the moonlight. It is thirty years since the fall of the West, and Britain is
cut off from the continent, where soon even the existence of the Anglis will
become a myth. This villa has survived the pestilence and devastation of the
civil war, and although it must be a couple of centuries old, it is still
standing. From here you could cut across the hillside east to west, or slip in
through a none-too-secure timber door."
S421: "A stream runs past the villa and cascades down the hillside here, to
join the river far below, near the Roman road which will, in 1500 years time,
become the motorway which so spoils the view from your back garden. A rough
ladder of wood lashed together with leather rests against the villa at the
lowest point of the tiled roof."
S422: "The shadowy cloisters of the villa's atrium. You disturb a fieldmouse,
and hear the scratching of tiny claws on stone. Moonlight filters in from the
central courtyard to the south, and a rotten timber door leads back north."
S423: "Resting against one pillar is a horn made from a tusk, mounted on a long
spear-like pole."
S424: "The central well of the villa, ringed with columns. On the north side is
a cloister and stone-linteled doorways lead east, south and west. The central
floor area is commanded by a beautiful Roman mosaic, quartered into individual
scenes, around the edges of which are vents from the hypocaust. There is no
roof over the courtyard, and the atrium is lit by moonlight."
S425: "The four quarters show white-beards in the Forum, farmers in Italian
fields, a military fortification and a grain ship unloading at Ossia."
S426: "Whatever function this spacious room once had, now it is evidently home
to military men, for it is filled with crude armour, spears, rough blankets
which are little more than animal hides. Fortunately for you the guards are
absent."
S427: "A crude six-sided die made from animal bone."
S428: "a pair of"
S429: "What was once the villa's triclinium, or kitchen, is now deserted and
long since ransacked for metal. (Nobody lives on their own in this century, and
this villa wouldn't be easy to defend.) A doorway to the east gives onto the
atrium."
S430: "The well has a hinged wooden cover. You can't tell by looking how deep
it is."
S431: "The hinged wooden cover is raised, revealing a circular well about a
yard in diameter. It is very dark inside."
S432: "In one corner is a hinged wooden cover of some kind, which is shut."
S433: "You are clinging perilously to the walls of the deep and dangerous well.
You can hardly see a thing, even with the aid of the torch, but curiously
enough you feel warm air blowing across you from the east."
S434: "Too risky. There might not be anything that way, for all you know."
S435: "This very low almost-cellar underneath the atrium is a tiny access space
for log fires which are kept going to provide a form of central heating for the
villa. They are lit and going away nicely, interestingly. It isn't very warm by
twentieth-century standards, but you have to admit it works.
A tiny amount of light filters in from the vents in the roof; just enough to
see by. The only way in seems to be the way you came."
S436: "The log fires are hot, and anyway the only way out large enough for you
is back west."
S437: "A well-flagstoned forecourt at the villa entrance, surrounded by lesser
wooden buildings. Some of these are in use as stables, and figures of men slip
between them. You hide from sight, not wishing to draw attention to yourself.
Up on the hill, where Meldrew Hall will one day be built, men on horseback can
be seen circling the access track. For a deserted villa, this is certainly
well-guarded."
S438: "Well, here you are, imprisoned again. This time the cell is a tent of
stitched animal hides, perhaps twenty feet in diameter, supported by a central
pole. You have no idea where the entrance is, because you were blindfolded on
the way in. There is at least a dim light from the camp-fires outside the
tent."
S439: "This tent doesn't seem to have an exit, either."
S440: "He is dishevelled, wiry and unconscious. He is also covered with dust
and leaves, as if he has been lying down on his front outdoors for hours."
S441: "An unconscious Saxon spy is slumped on the ground. Occasionally faint
noises can be heard from him."
S442: "Luckily for you the tent, now collapsed, was hardly being watched at
all, because all the attention is diverted to a ghastly ritual being carried
out over beyond the camp-fires. But your luck cannot hold for long. You are so
surrounded by hostile territory that you simply have nowhere to run or hide.
Things are, not to put too fine a point on it, looking grim."
S443: "Far, far too risky."
S444: "An erratic glacial rock, which seems in the feverish firelight to make a
natural dolmen, can be made out to the east, on the other side of an
almost-extinguished campfire of hot coals."
S445: "You stand beside the eerie dolmen, surrounded by the terrible noises and
incantations of a druidic rite."
S446: "Far, far too risky."
S447: "I wouldn't wave that around if I were you!"
S448: "Resting on top of the dolmen is a polished blue stone."
S449: "Hell, you always imagined, would contain fiery, sulphurous pits and a
great many gentlemen with forked tails. You were right about the last part. A
demon is sitting behind a flame-proofed desk at the bottom of the stairs. There
are some disconcerting screams from further away, but nothing to worry about.
Not in this life, anyway."
S450: "That direction is not for the living."
S451: "If you were to cast a film of your adventures so far, you would hire
Donald Sutherland to play this gentleman."
S452: "Heaven, you always imagined, would be a world of marble pillars, fluffy
clouds, harps and angelic ladies with serene expressions. You were right about
the last part. An angel is sitting here behind some new office furniture, next
to a blue Tourist Information sign. A bridge of cloud extends south across the
sky to the beanstalk. There is some choral singing going on somewhere, but not
loud enough for you to hear properly. Not in this life, anyway."
S453: "That direction is not for the living."
S454: "If you were to cast a film of your adventures so far, you would hire
Dame Judi Dench to play this lady."
S455: "N to servants, ne to writing, nw to in cupboard, e to passage, w to
octagon, se to temple, sw to taverna, s to museum, u to hall, d to yet more."
S456: "e to heaven, w to behindh, n to lair, s to prow, d to palace, u to
intomb, ne to jetty, nw to birdcage, se to inchurch, sw to c and g."
S457: "There is a long vanity mirror beside the bed."
S458: "(Aunt Jemima has two cats, Jane and Austin, but she finds Austin
especially annoying - about the only point you have ever agreed with her
about.)
Austin, a ginger with a long tail and an uncompromisingly lazy expression, is
the kind of cat who hates being pushed around."
S459: "Austin, your incorrigible ginger cat, lounges around here."
S460: "A strangely familiar, dusty passage, sloping down from a southern end
bathed in hostile light to some kind of metal barrier in the north."
S461: "Flurries of green luminescence whirl endlessly around you, west to east
and over."
S462: "Your ghostly self is embedded in a diagonal downward shaft (descending
to the east) entirely filled with dry sand. Solid flagstones line the walls."
S463: "Flaming torches bracketed in the wall gutter as the last oxygen in the
air is consumed, and the flicker of flame plays across the yellow-orange glaze
of the tomb walls.
This octagonal chamber is lined with Egyptian hieroglyphics. Sand spills across
the floor from under the sole entrance, sealed by an ingenious stone slab."
S464: "A kind of ship's wheel (of eight-spoked timber) is affixed to the
northwest wall."
S465: "A flight of sandstone steps, cut in the 1920s when an Egyptological
craze was sweeping England, slants down from the coal-dust passage to the
east."
S466: "A broad, dark octagonal room devoted to dull exhibits of the disastrous
Nile Valley Expedition of '21 - the few good ones were donated to the British
Museum. A back staircase leads west to the unbuilt extension, while the
entrance seems to be the cobwebbed passage southeast. High windows on the
northern face let in dim light."
S467: "The only exits are via the southeast passage and the back staircase."
S468: "There is a little window-vent high in the southwest wall."
S469: "You can just make out an impression of cellars."
S470: "A little charcoal sketch is framed on one wall."
S471: "Behind the frame seems to be an artist's impression of the great Palace
of Alexandria as it might once have been."
S472: "It's the frame which really sets it off."
S473: "Charcoal is so unrealistic, don't you agree? Besides, it's far too
large and clumsy."
S474: "A miniature artist's impression of the great Palace of Alexandria as it
might once have been.
(No, the impression is miniature, not the artist.)"
S475: "The ravings of a madman. Ignore it."
S476: "A placard claims there is an interesting inscription on the inside of
the lid."
S477: "A rather morbid, gilded model coffin rests here in peace."
S478: "Leaned against one of the eight corners is a ragged white parchment
scroll."
S479: "What taste! What artistry!"
S480: "A lamentably naff tourist's gift, this seems to be a "replica" of one of
the papyri on which some lost Greek play or other was written. Some nonsense
about the priestess of Apollo being summoned by music, etcetera.
It has all the charm of a tea-towel of, oh, say the Taj Mahal made out of
curry."
S481: "An annexe to the museum, containing sundry archaelogical finds, badly
labelled in German (which you can hardly read at the best of times) and
securely pinioned inside glass cabinets. The storm outside thrashes against the
narrow dark windows."
S482: "One cabinet looks particularly vulnerable."
S483: "A smooth palm-sized disc, perhaps of pumice stone, painted in yellows
and browns with a single star motif, around which (clockwise) are the words
"nog", "er", "ska" and "iw". If you remember the label rightly, something funny
has been done to a piece of metal embedded in the top, but your German isn't up
to understanding what."
S484: "Doesn't the shape strike you as familiar at all? - There, that should
point you in the right direction."
S485: "You need more evidence before you can begin deciphering the language, I
fear."
S486: "Only one line has survived intact:
.<anoppe> an-spe : ska er nog-er an-ge : to-ro-ma ka ur Al-x-an-dr u bir ka
ur-a an-ge ur"
S487: "A low, white hallway adjoining the Octagon, converted from what was once
the scullery and the servants' pantry. A tight, dark staircase runs up and
south; and a diagonal bricked path runs out northeast to the gardens."
S488: "A deep old elephant's-foot umbrella stand."
S489: "There's an old-fashioned elephant's foot umbrella stand beside the
garden doorway."
S490: "A copy, half-size, of the one from Tutenkhamun's sarcophagus. It isn't
real gold, either."
S491: "Of no use to anyone these last two thousand years, sorry!"
S492: "Up on one wall is a picture hook."
S493: "You're strolling on a pleasant bricked path, passing from the outer
rooms of Meldrew Hall to a track through the eastern side of the garden."
S494: "Do you think there's anywhere in the garden particularly suitable for
such an implement?"
S495: "Hanging from a hook is a bladed agricultural implement."
S496: "Named by some family wag generations back, this is a restful hedge
garden, crowned with a summer house to the north, widening out to a broad
croquet lawn east."
S497: "A flock of sparrows crowds around the gutters of the summer house. Every
now and then one flits up and lands somewhere else, and they bustle about
chirpily."
S498: "An old wooden summer house, reeking of varnish and uncertain beneath
your feet. Several segments of the tall glass many-sided pyramidal roof are
missing and others are cracked, but this is still somehow a homely and
welcoming retreat. The only entrance is also the only exit."
S499: "Croquet is the Devil's own game!"
S500: "It's for mashing croquet potatoes."
S501: "A croquet mallet stands by one wooden wall."
S502: "How easily are the weak mesmerised by baubles."
S503: "It is beautifully polished, and captivates the eye. You could stare for
hours..."
S504: "Something golden hangs by a chain from a loose pane in the roof, but
it's too high up to reach."
S505: "Splendid, you're having a ball. I do hope you hit it off."
S506: "A hard wooden ball, palm-sized, rolls about across the mosaic."
S507: "Among dense hedges by the shabby wood-slatted back of the summer house.
Dark scratchy branches hem you in, but you could scramble down to the west or
out onto the croquet lawn southeast."
S508: "You could easily squeeze past the loose board south into the summer
house."
S509: "One board of the back wall is noticeably loose, making a good-sized
crack."
S510: "Through the crack you can see the summer house."
S511: "your"
S512: "Not at all shy when on his own territory."
S513: "One of the most beautiful hedge-enclosed, tree-muffled lawns in England,
and just out of sight of the house, this has been a jewel in the gardens for
centuries. Since the twenties it has also been a croquet lawn, of the
regulation twenty-four yards square, laid out with a central coloured peg and
six peripheral hoops."
S514: "The lawn is enclosed on all sides, but for a gap back west."
S515: "There are six arched hoops in a croquet set, arranged around a central
peg. These ones have been safely anchored in place since the lawn was laid out
in, oh, Midsummer 1923 if family lore is to be believed."
S516: "A good strong strongbox, buried for two centuries and now unearthed; it
bears a fine gothic iron lock, and a tasteless coat of arms (a wild boar
rampant)."
S517: "You might have read about this. One of your ancestors is the key,
perhaps?"
S518: "A very old instrument for measuring altitudes, this is all that remains
of Sir Joshua Meldrewe's stolen hoard of gold. There is an eyepiece."
S519: "A mighty fine instrument, though not much use hand-held."
S520: "The rich loam, the silver of earthworms, the dignity of toil... none of
these pastoral sensations is yours as you scrabble in the dirt."
S521: "Some vandal has dug a hole in the lawn."
S522: "This dark, steep staircase zigzagging through the house once gave the
servants access throughout. But those days are long gone and now all the doors
are locked up."
S523: "The east cloister of the Temple, which turns from northwest to
southwest, is bare but for a small niche."
S524: "an"
S525: "Resting in the niche is an inscribed pumice stone, two feet tall."
S526: "Whoever wrote this must have wanted to get the message across very
badly, to write it all out twice."
S527: "Along the west cloister, turning from northeast to southeast, is a broad
bas relief depicting the seasons: the planting of seed, high summer, the
harvest, floods and then the coming of ice."
S528: "A curious symbol is repeated along the top of the relief."
S529: "Here from the dark heart of the temple, cloisters fork northeast and
northwest while a flight of narrowing steps lead down and to the north."
S530: "The blind poet Homer half-slumbers here, clutching his syrinx (or
Pan-pipes) to himself."
S531: "Homer is wearing a Columbo-style raincoat."
S532: "the"
S533: "Marvellous! A sound to soothe the spirit."
S534: "Carefully cut from river reeds, these once belonged to Homer himself. As
you may recall."
S535: "The fabled Labyrinth seems only to consist of a broad cross. Arms run to
northeast, northwest, southeast and southwest, while a flight of stone steps
widens and climbs south."
S536: ""ka-i ur-a re-im ka an-ge""
S537: "There are extremely scuffed and faded inscriptions at the centre of the
cross."
S538: "Beside the inscriptions is an opening in the floor, about two feet
square."
S539: "A foul, musty bone pit, beneath the cross, where sacrificial victims
were once dropped and "forgotten"."
S540: "Lying on top of crushed, broken bones, in plain view, is a gleaming gem
of amber."
S541: "Embedded within is the body of a fly. Scratched upon one face is the
word "GALITA"."
S542: "Isn't there some classical legend about her?"
S543: "This cross-corner is inlaid with carvings of fish, of the waves, of
great casting nets sweeping through the water.
The Labyrinth lies to southwest."
S544: "This cross-corner is surrounded with carvings of wheat swaying in the
breeze, bathed with sunshine.
The Labyrinth lies to southeast."
S545: "This cross-corner is decorated with carvings of massed ranks of hoplite
warriors, advancing into battle.
The Labyrinth lies to northwest."
S546: "This cross-corner is decorated with carvings of grape-vines and barrels.
The Labyrinth lies to northeast."
S547: "A fine statue of the god Poseidon stands here."
S548: "A fine statue of the goddess Demeter stands here."
S549: "A fine statue of the god Ares stands here."
S550: "A fine statue of the god Dionysus stands here."
S551: "A dry cave opening from a crack to the northeast, becoming a fair-sized
cavern, furnished with bronze and lit by trestle lamps chained from the
ceiling."
S552: "the"
S553: "The Oracle, the masked priestess of Apollo, stands here behind an
obsidian altar-stone, three cubits cubed: to her side is a bronze urn, mouthing
perpetual flame."
S554: "the"
S555: "The altar stone, sometimes called "Omphalos" or "the navel", bears an
odd cross or plus sign and is fabled to mark the centre of the world.
Around the side of the urn are reliefs of feasts, of oxen being tracked and
sacrificed, of the gathering of fruit and the making of cheese."
S556: "Legend has it that the Roman emperor Augustus was killed by his wife,
who painted the figs on his tree with poison. Somehow, this legend rather puts
you off your appetite, though actually it's a perfectly nice piece of fruit."
S557: "Hanging from a low branch of a fig tree is, as you might expect, a fig."
S558: "Good enough for a god."
S559: "You can ask a god for a date, but they just don't give a fig."
S560: "At the foot of the Hall, where wistaria climbs a desperately rickety
fire escape, is the drive, a long gravel lane approaching the house through
trees.
Since your family are intermittently loading suitcases into the car, which only
makes you feel guilty, the only safe way to creep away is along the public
footpath, to northeast."
S561: "Better not - they might catch you."
S562: "By a stile in the public footpath across the fields to the village,
which lies to the north. Sitting on the stile you have a splendid view of the
house and its battlements. The air is ablaze with pollen and dragonflies.
It might be possible to scramble down to a hollow, but it surely wouldn't be
pleasant."
S563: "The footpath turns from southwest to north."
S564: "A low, muddy, stinking hollow, trodden with reeds, dried out in the long
summer and no more than moist now. You could climb back up, or go northwest,
though that would mean crawling through a thorny hedge."
S565: "There's a bird's nest at the bottom of the hollow."
S566: "A bunch of nuts, left over from last autumn."
S567: "Do you know, I love nuts, but I have to be so careful what I eat now...
Still, the little ones will have them."
S568: "Nuts to you too."
S569: "Entwined in the nest is a bunch of nuts."
S570: "And sat upon it is, as you might expect, a bird: a corn crake, in fact."
S571: "A rail with a distinctive cry. And a possessive look."
S572: "Beside the long triangle of the green, under the stone cross of the
First World War memorial. The public footpath runs south to a stile. The
village is tiny: the parish church, the "Goat and Compasses" pub (which, owing
to quaint English licensing laws, is closed) and a few houses and desultory
tea-shops for tourists visiting Meldrew Hall."
S573: "You wander around the peaceful green for a while, but there's nothing to
do."
S574: "Old Evans, the village racing enthusiast, sits on the steps of the
memorial, combing the back pages of his "Racing Times" newspaper."
S575: "In the band of his hat is his lucky mascot: a little picture of the
crescent moon."
S576: "The monkey sits on Evans' shoulder, cheeping with excitement. Evans has
found a pet, and is so gruffly delighted that he has forgotten all about the
mascot you stole. Now if he could only predict the 3.40 at Borchester Mills..."
S577: "Some kind of crescent moon, an old Druidical symbol."
S578: "It leads nowhere."
S579: "The front page story ("Lord Lucan's new acquisition Shergar comes out of
retirement to win the Grand National") is so boringly unsensational that you
quickly lose interest. But Evans is eternally fascinated with minute details of
the form of the horses, tomorrow's race meetings, current odds quoted by the
bookmakers, and so on."
S580: "Racing afficionados consider it lucky to wear mascots in the bands of
their hats."
S581: "The stone cross, for the fallen of the Great War of 1914-18, contains
more names than there are houses in the village.
Somehow, your eye is caught by Second Lieutanant Gerard Meldrew of the
19th/21st Rifles, and you shiver, although the afternoon is warm."
S582: "The fourteenth-century Church of St Michael and All Angels doesn't seem
to be locked up, exactly - just barred from the other side."
S583: "In the days of Oliver Cromwell, it was called "God Encompasseth", but
the locals have worn down the name over the centuries to "Goat and Compasses".
It is of course closed, owing to the licensing laws. You congratulate yourself
on living in such a modern, forward-looking country."
S584: "Before this was the Norman church of St Michael and All Angels, it was a
Saxon one: this is an ancient site. A great space of stone, filled with dark
wooden pews and woven mattings. Flowers left over from Sunday grace the lectern
and altar. A narrow stair leads upward, and the village green lies to the
south.
Old side chapels lie east and west."
S585: "the"
S586: "A passage slants down through a solid crystal doorway in the Moonstone."
S587: "Set into the floor, and slightly raised, is the Moonstone, an ancient
broad flagstone the size of a door, inscribed with a crescent moon."
S588: "The Moonstone is very old, probably pre-dating the rest of the church by
some centuries. Legends about it abound: some say the spirits of the departed
pass beneath. Old iron rings are set in it, but nobody has ever succeeded in
lifting the colossal weight."
S589: "An alcove in the ancient west side of the church, beneath stained glass
windows of the Resurrection."
S590: "The church lies east."
S591: "an"
S592: "The statue is half-skeleton, and you can see clear through the bones."
S593: "the"
S594: "The knight is bursting and eager with life, as though nothing could fade
his boundless energy for existence."
S595: "The adamantine knight stands staunchly here."
S596: "A small clear space to the side of the church, in a bay ringed with
stained glass windows of the Nativity."
S597: "The church lies west."
S598: "A tall marble statue of Diana stands here: a find from the nearby Roman
remains."
S599: "There is a sly look in her eye as she smiles aslant."
S600: "The bell-ringing chamber, half-way up the church tower. Thick braided
ropes hang down, tailing into sashes. A plaque on one wall announces that in
1901, ten men (Roger Meldrew among them) rang a Kent Triple Bob."
S601: "There is a beautiful view over the green parceled farmlands and hills
surrounding the village, and you feel a certain pride to see Meldrew Hall
sitting amongst it. It's also windy and dangerous up here on the grey lead
spire of the parish church, beside the old clock: fortunately an opening leads
down into the clerestory."
S602: "an"
S603: "Like a solid glove.
It reminds you oddly of one of the symbolic pieces in Monopoly - the ship, the
car and so on."
S604: "There must be more to this marvellous figure somewhere."
S605: "Mounted loosely on the end of the weathervane, an adamantine hand points
the way the wind blows."
S606: "The clock stands at ten past three, as it has done for some years.
According to a small commemorative plaque, it was the work of William Snelson
the Clockmaker."
S607: "A warm winter's night in the ancient city of Alexandria, on the
Heptastadion causeway across the harbour to the Island of Pharos (to north).
The Mediterranean waters lap against the land bridge, and the whole city
(southeast) is lit up with torches: it is a night of celebration."
S608: "The island of the Pharos: the lighthouse after which others are named,
one of the Seven Wonders of the World, blazes into the sharp moonlit sky. It is
120 metres high, a circle on an octagon on a square.
A light wind blows across the coastal defences. On this spot, seventy-two
scholars first translated the Old Testament into Greek: shivering continuously
if it was as chilly as this. A narrow causeway runs south across the harbour."
S609: "The causeway is the only land route off the island."
S610: "A rusty seaweed-wreathed iron grating lies open here."
S611: "In one wall of the wave defences is a rusty seaweed-wreathed iron
grating, closed up tight."
S612: "Interestingly, a key which looks as if it would fit the grating can be
seen inside the passage beneath."
S613: "Oh dear, surely it's gratingly obvious what this fits?"
S614: "Down on a dark stone jetty, where the waters of the Alexandrian harbour
splash insistently. Rough-hewn steps rise up the island through the grating."
S615: "A skiff (a small sail-boat) is moored up here."
S616: "You could easily sail away: where you would end is at the mercy of the
tides and the night breeze, since you have no idea how to guide a rudder or
trim a sail."
S617: "an"
S618: "A cardioid of the kind favoured by Valentine's cards rather than
surgeons.
It reminds you oddly of one of the symbolic pieces in Monopoly - the ship, the
hat and so on."
S619: "There must be more to this marvellous figure somewhere."
S620: "An adamantine heart lies in the skiff."
S621: "As the skiff passes the jaws of the Royal Harbour, beneath the great
Pharos light, you have a final view of the receding civilisation of Alexandria:
ahead lies the vast, oil-calm Mediterranean and moonlight on the waters."
S622: "The skiff is not under your control."
S623: "You drift in the wide, peaceful Lunar sea. Curious fish, their
yellow-green eyes gleaming beneath the silver ripples, brush past your wake:
the night zephyr is almost slack but still you drift. Minutes pass like hours
in paradise."
S624: "You feel only a drug-like calm."
S625: "The great crossroads at the heart of chlamys-shaped Alexandria, greatest
city of the civilised world. The northwest-southeast road runs from the
causeway to the Tower: the main road runs southwest from the Necropolis gate,
northeast to the great public buildings of the city."
S626: "A spacious, sombre, moonlit and magnificent valley of tombs, some brand
new, just outside the walls of Alexandria (to the northeast). Already it is
ancient. Most of the little termite-hill style pyramids have been invaded time
after time: indeed, one pyramid's entrance gapes open to the south."
S627: "This is no place to wander after dark."
S628: "Birds of prey circle high in the night sky, their talons glinting in the
moonlight."
S629: "You stand near the unexciting tombstone frequented by the birds of
prey."
S630: "You stand near the tombstone, which has become rather more interesting
now that a flight of steps downward has appeared."
S631: "It bears just one word of epigram: "GALITA". Below that is a curious
face, with an open empty socket of a mouth."
S632: "A cloak of many colours lies folded on it."
S633: "A fine cloak, grey-lined, sapphire-encrusted, rippled across with
rainbow fabrics from the trade routes of the world."
S634: "Are you sure it isn't inside out?"
S635: "A fine grey cloak, sapphire-encrusted, lined with rainbow fabrics from
the trade routes of the world."
S636: "Are you sure it isn't inside out?"
S637: "This is not the famous Alexandrian tower (which is not due to be built
by the Emperor Domitian for centuries), just an anonymous little monument on
the same site. It is square-cut inside and there's only a small exit
northwest."
S638: "The heavily defaced door opens onto a staircase up."
S639: "In one wall is a door heavily defaced with writings, the same word, over
and over in a hundred tongues and scripts: the word "Sosostris", in fact."
S640: "The stairs end at a shabby room, with screened windows, lit by incense
sticks and sevenbranched candelabra. A doorway with a hanging bead curtain
leads east. In the centre of the room is a table, which is bare."
S641: "Madame Sosostris stares at it fixedly as she meditates."
S642: "Unmoving."
S643: "Known to be the wisest woman in Asia Minor."
S644: "Madame Sosostris, famous clairvoyante, meditates here."
S645: "It needs to be left to mature, and yet there's something awfully
familiar about it."
S646: "You seem to have dislodged one of the wooden beams used by the tomb's
builders: a useful length of greenish oak."
S647: "Perhaps it could be put aside for later use."
S648: "Ready to use."
S649: "For me? Oh, you shouldn't have... oh, you didn't. Well give it to
someone else then."
S650: "A silver locket on a thin chain, with a heart-shaped picture of a knight
placing a rose in his lady's hair. Quite nauseously romantic."
S651: "A perfectly-cut room of rose-coloured granite, twelve feet across,
painted in yellows and browns to simulate alabaster panelling. This is the
latest in modern funerary apartments.
There's a couch for visitors, a table, a flight of steps up and a doorway to
the west, flanked by two stone sphinxes."
S652: "No grave would be complete without one."
S653: "The sphinxes seem to stare balefully at you."
S654: "One of the sphinxes does have rather a prominent nose, it must be said."
S655: "Splendid."
S656: "A comfortable-looking wooden couch, covered with weave matting."
S657: "The passage, descending from the east down to the west, is cut from
marble, lined with painted scenes from the fashionable comedies of Menander,
decorated with Alexandrian coloured glass ornaments.
The expression "You can't take it with you" doesn't seem to be popular
hereabouts."
S658: "Just an east-west passage."
S659: "You simply can't bear to look. It might be a monkey... at least it has a
tail... No. No, you have to look away."
S660: "Despite the tasteful decor, the most hideously ugly model animal you
have ever seen sits on a little shelf here."
S661: "Oh dear."
S662: "Exquisite. Simply charming."
S663: "The passage opens out onto the burial chamber below."
S664: "Unfortunately, the passage slants down only into a solid marble wall."
S665: "A perfectly-cut room of rose-coloured granite, twelve feet across,
painted in yellows and browns to simulate alabaster panelling, at the foot of a
flight of steps which leads only to a sealed wall."
S666: "No grave would be complete without one."
S667: "Stone sphinxes guard the west doorway, staring balefully at you."
S668: "The weave matting on the couch is now in some disarray."
S669: "A comfortable-looking wooden couch, covered with weave matting."
S670: "two"
S671: "Two Napoleonic officers stand awestruck as light splashes from their
lanterns over the riches of the tomb."
S672: "The officers wear the uniforms of the Emperor's 1798 occupation of the
Nile Delta, and carry fine brass lanterns."
S673: "A really luxurious burial chamber, far beneath the entrance court.
A yard-wide square channel runs away fractionally east of north, in an
apparently endless stooped passage.
On the west wall are three curious sockets, above a painting of a priest of the
half-mythical pharoah Sosostris in full sceptred, grey-clad regalia."
S674: "The passage rises sharply to the east."
S675: "Drawn in the odd aspect favoured by the Egyptians, who believed in ideal
angles rather than accurate drawing. The sceptre, only half the size of the
large ones you once saw in the British Museum, looks oddly familiar.
This close to the wall, you notice words written above the three sockets."
S676: "Golden, kingfisher-blue, smoothly curved, immensely heavy, beautiful.
And final, and dead."
S677: "A beautiful gold and blue mummy case, or sarcophagus, rests massively
here."
S678: "Ransacked, dimly-lit, cramped and empty, this rough-built and uneven
burial mound is to the Great Pyramids of Giza (built just a century before)
what the summerhouse in your garden is to Windsor Castle. There are only dull
painted writings, an unpleasant odour and a passage out to the north."
S679: "One of the so-called Pyramid Texts making up the so-called "Book of the
Dead". This dramatic passage seems to be devoted to wise men preparing their
bodies to rise in the afterlife, anointing themselves with oil. An interesting
motif of ten strokes, arranged
III IIIIII I
catches the eye."
S680: "The main southwest-northeast road forks off with a road due north to the
Theatre. Despite the kaleidoscopic din you are impressed with the sober majesty
of the Museum of the Ptolemies, whose fine portico entrance, decked with
reliefs, is southeast."
S681: "Reliefs of the cat-god bestride the square-cut entrance. The fanaticism
of the cult of the Cat in Upper Egypt has such a stranglehold that the image is
everywhere. You remember reading somewhere that passers-by in the street have
been torn to death before, just on suspicion of mistreating a sacred cat."
S682: "The celebrated Library of Alexandria, finest in the entire world,
possessed of hundreds of thousands of books: where the ruling Ptolemies keep
fanatical, infighting scholars almost imprisoned as they turn out rival
commentaries on the ancient poems - hence the nickname.
There is a little door to the south; a dusty corridor southeast; a thoroughfare
east, and a grand entrance northwest."
S683: "There is a pigeonhole mounted on one wall."
S684: "A depository for scrolls."
S685: "Surely this is addressed to someone?"
S686: "An open-ended hollow tube, marked with a Greek capital Alpha."
S687: "Surely this is addressed to someone?"
S688: "An open-ended hollow tube, marked with a Greek capital Kappa."
S689: "Oh my. "I touch your... and the scent of you rises from... your
beautiful..." I'd better not read the rest. Strictly for afficionados."
S690: "All Greek to you, alas. Only a dozen lines or so, though."
S691: "Oh my. Well, the plot, um, there are seven attackers, all with different
shields, one for each of the seven city gates, and it's a civil war so of
course the brothers are really in a duel and there are champions and the women
are upset but it's all because of their brother who was really their father...
Never mind. It's strictly for afficionados."
S692: "All Greek to you, alas, running on for 1000 lines or more."
S693: "This small, dark (by night) room is a repository for Library supplies:
above all, for lamp oil, which is stored in broad shallow earthenware troughs.
Lucky your torch is electric, when you think about it. Anyway, a passage leads
back north."
S694: "the"
S695: "The rather neglected hall for the accurate study of geography: as
opposed to the lurid travellers' tales preferred by most writers in this
slapdash century. Nobody is working here, and one can only file back
northwest."
S696: "Protruding from a broken globe of the Earth (marked with very tentative
and approximate maps) is the spindle, the only thing holding it together."
S697: "Perhaps the best work of cartography likely for the next two thousand
years, it seems unlikely the globe will last the next two hours."
S698: "Don't go waving this about."
S699: "A spacious, densely colonnaded corridor, its walls lined with inset
shelves on which are scrolls beyond count, ribboned, dusty, disintegrating,
badly catalogued so that only an expert can find what he wants."
S700: "You wander through the columns, but can find no exit save the
thoroughfare east and a little office south."
S701: "endless"
S702: "Even a single book may run for dozens of individual scrolls, and the
titles are hard to interpret: anyway, most of the books are rubbish. Dewey
decimal numbers are not due to be invented for millenia."
S703: "The expert in question being Callimachus, who is brooding over a scroll,
and hardly aware of your presence."
S704: "Callimachus is famous for something or other. You wonder what..."
S705: "Apollonius seems to have dropped a mystic scroll in the scuffle."
S706: "We in the afterlife, um, have a policy of never commenting on leaked
documents."
S707: "Don't you believe it!"
S708: "It tells that even the greatest mortal must choose of the three High
[and the next word is illegible], for once and all, but that for each there is
a way. The usual mystic nonsense."
S709: "And Callimachus' purple shoulder-sash has come off."
S710: "Worn over the shoulder."
S711: "A tiny office adjoining the colonnades north, this is home to Apollonius
the head Librarian, whose writing implements, table and sand-wells are
scattered untidily about."
S712: "Apollonius paces about self-importantly in a purple sash, perusing
documents on his desk."
S713: "His aim in life is chiefly to annoy Callimachus, his junior librarian
and the modern poet he despises most."
S714: "The great Stadium of Alexandria, with capacity enough to hold the whole
population of the city: and it looks full. Olympic openings in the age of
television have nothing on these people. The procession surges continually in,
around the track and then out again, and amid the bustle you cannot push
through."
S715: "It would be easier to breathe back southwest."
S716: "Tragically, the Theatre is closed tonight, but roads lead past the great
stepped bowl: north toward the Palace, south to the Museum and west to the
harbour-front."
S717: "A hugely impressive edifice, and everything you might expect from the
man who conquered the whole of Asia Minor at an age when most people are
starting to think about getting a mortgage.
There are of course guards, but they're trying to catch the procession, so if
you're careful not to draw attention to yourself you could probably sneak in to
the north."
S718: "Scholars are divided on the origin of the "maze" legend: some hold that
to a primitive culture, the Knossos palace was so complex as to seem a maze,
and the king so fearsome as to seem a Minotaur.
Others say the early palaces really were labyrinths to protect sacred altars.
And you think it's because this is a maze of twisty little passages, all
alike."
S719: "Such a slave, a highly trained professional, stands at every
intersection of passages in the palace. They are deaf mutes, to prevent them
overhearing State secrets."
S720: "A slave stands impassively by one wall."
S721: "The magnificent balcony overlooking the Royal harbour of Alexandria. In
two hundred years' time, Julius Caesar will be besieged here, and will hold the
palace with a tiny force of men against an entire army: and will lose his heart
to Cleopatra...
For the mean time, this is a broad stone balustraded balcony. The coin-bright
moon, low in the sky, reflects off the black waters far below."
S722: "There seems to be absolutely no way off the balcony, as the stone doors
to the heart of the palace are sealed shut."
S723: "An impressive astronomical mounting stands on a tripod here. But there
is no telescope."
S724: "Down by the sea-front, in the old harbourlands, surrounded by
warehouses. The Mediterranean laps darkly against the hard, splashing an
occasional wave up the slope. The city, and the party, lie back east."
S725: "There's nowhere to go but the city, east."
S726: "A grizzled sailor sits at a harbourside table."
S727: "An inscribed six-sided die lies on the table in front of him."
S728: "The sides you can see are labelled with short words."
S729: "There is a storm tossing the deck, one which drives no rain: you reel
from one side to the other, hanging onto the rail, grabbing at the mast or the
rigging. Nobody else seems to be aboard. The boat makes no headway in a
strange, glassy mist.
The mast rises dizzyingly high.
You can't even make out the water below. A great pink haze spreads across the
sky. With omens like these, who needs albatrosses?"
S730: "The deck runs fore to aft (as all decks do)."
S731: "Down might be a better idea."
S732: "Coming up here must be one of your less inspired ideas. The mist is all
around you, confusing your senses. Two pale, bluish moons hang in a pink sky."
S733: "A flagpole juts out portwards from the top of the mast, far too
insubstantial to bear any weight. From it hangs the ensign of the British
Merchant Navy (which you could just reach the bottom of)."
S734: "The flagpole juts out to port with the prevailing... wind?"
S735: "The flag has fluttered to a heap on deck."
S736: "Piece of advice - it's never very comfortable wrapping yourself in the
Flag."
S737: "Broad, heavy, scarlet cloth, halfway between a silken sheet and a
carpet, with a cross and a Union Jack in one corner."
S738: "You stand in the triangular prow of the ship, which is graced by a
carved and painted figurine and named the "Lady Magdalena". There is no sign of
water, but the boat is rocked too often for it to be aground. And the glassy
mist hangs ahead."
S739: "You can only go aft."
S740: "Oh, you startled me for a moment there! I am getting flighty."
S741: "In the Lady Magdalena's loose grip is a traditional sailor's good-luck
token: a green-leafed branch, to attract the gulls of an approaching shore."
S742: "The square stern of the ship looks out south, not onto receding waves,
but to what seems a tunnel through dense, glassy mist. You can faintly make out
an odd, pale reddish sand bank in the distance."
S743: "The boat runs fore."
S744: "The top of the anchor chain is wound around the capstan, a great wheel
on the deck beside you. The chain disappears over the side."
S745: "You lie in the mummy case, your arms folded across each other, face
grimaced, running out of air rapidly and with almost no room to maneouvre. The
coffin lid is about ten times heavier than you, and its seal is very good."
S746: "an"
S747: "There must be more to this marvellous figure somewhere."
S748: "It reminds you oddly of one of the symbolic pieces in Monopoly - the
car, the boot and so on."
S749: "An adamantine skull lies here, as if casually dropped by a god's hand."
S750: "a cake of"
S751: "That's the spirit, keep it up!"
S752: "Really! How disgraceful!"
S753: ""For foulmouths everywhere"."
S754: "Old Evans' hat is empty. You feel terribly guilty."
S755: "That iron key seems to have washed up here..."
S756: "...and there's the strange stone again."
S757: "Four be the things I'd been better without:"
S758: "Love, curiosity, freckles and doubt."
S759: "-- Dorothy Parker, "Inventory""
S760: "It seemed that the next minute they would discover"
S761: "a solution. Yet it was clear to both of them that"
S762: "the end was still far, far off, and that the"
S763: "hardest part was just beginning."
S764: "-- Anton Chekhov, "The Lady with the Dog""
S765: " The mouse"
S766: "Behind the mouldering wainscot shrieked."
S767: "-- Alfred, Lord Tennyson, "Mariana""
S768: "Parturient montes, nascetur ridiculus mus."
S769: "-- Horace, "Ars Poetica""
S770: "Zeus, whose will has marked for man"
S771: "A single way where wisdom lies"
S772: "Ordained one eternal plan:"
S773: "Man must suffer to be wise."
S774: "-- Aeschylus, "Agamemnon""
S775: "I might repeat to myself, slowly and soothingly,"
S776: "a list of quotations beautiful from minds profound;"
S777: "if I can remember any of the damn things."
S778: "-- Dorothy Parker"
S779: "More ways of killing a cat"
S780: "than choking her with cream."
S781: "-- Charles Kingsley"
S782: "I would like to be there,"
S783: "were it but to see how the cat jumps."
S784: "-- Sir Walter Scott"
S785: "Do not go gentle into that good night."
S786: "Rage, rage against the dying of the light."
S787: "-- Dylan Thomas"
S788: "No, 'tis not so deep as a well, nor so wide as"
S789: "a church door; but 'tis enough, 'twill serve."
S790: "-- Shakespeare, "Romeo and Juliet""
S791: "...I have just signed legislation that will outlaw"
S792: "Russia for ever. We begin bombing in five minutes."
S793: "-- President Reagan, mistakenly believing the TV"
S794: " cameras were switched off"
S795: "What is a ship but a prison?"
S796: "-- Robert Burton (1577-1640)"
S797: "The remarkable fact is that the values of these"
S798: "numbers seem to have been very finely adjusted"
S799: "to make possible the development of life."
S800: "-- Stephen Hawking, "A Brief History of Time""
S801: "Remember that you are an Englishman, and have"
S802: "consequently won first prize in the lottery of life."
S803: "-- Cecil Rhodes (1853-1902)"
S804: "Les plus desesperes sont les chants les plus beaux"
S805: "Et j'en sais d'immortels quit sont de purs songlots."
S806: "-- Alfred de Musset, "La Nuit de mai""
S807: "There is no return game between a man and his stars."
S808: "-- Samuel Beckett, "Murphy""
S809: "Throw away thy rod,"
S810: "Throw away thy wrath:"
S811: "O my God."
S812: "Take the gentle path."
S813: "-- George Herbert, "Discipline""
S814: "Speak gently, she can hear"
S815: "The daisies grow."
S816: "-- Oscar Wilde, "Requiescat""
S817: "Too poor for a bribe, and too proud to importune"
S818: "He had not the method of making a fortune."
S819: "-- Thomas Grey, "Sketch of His own Character""
S820: "Facilis descensus Averno:"
S821: "Noctes atque dies patet atri ianua Ditis;"
S822: "Sed revocare gradum superasque evadere ad auras,"
S823: "Hoc opus, hic labor est."
S824: "-- Virgil, "The Aeneid" Book VI:126"
S825: "We are the children of primeval night; we bear"
S826: "The name of Curses in our home deep under earth."
S827: "-- Aeschylus, "The Eumenides""
S828: "Thou makest his beauty to consume away,"
S829: "Like as it were a moth fretting a garment:"
S830: "Every man therefore is but vanity."
S831: "-- Psalms 39:12 (Book of Common Prayer version)"
S832: "White lilac bowed,"
S833: "Lost lanes of Queen Anne's lace"
S834: "And that high-builded cloud"
S835: "Moving at summer's pace."
S836: "-- Philip Larkin, "Cut Grass""
S837: "At the end of the day victory belongs to the Curses,"
S838: "Who shout in shrill triumph"
S839: "Over the utter rout of the defeated house."
S840: "-- Aeschylus, "Seven Against Thebes""
S841: "He shall separate them one from another,"
S842: "as a shepherd divideth his sheep from the goats."
S843: "-- Matthew 25:32"
S844: "Quickly now the amber"
S845: " Takes the fly with knees deranged"
S846: "To be buried unseen, unfound"
S847: " And irrevocably changed."
S848: "-- Dean Waynflete, "Questions of Substance""
S849: "Thus the devil played at chess with me, and yielding"
S850: "a pawn, thought to gain a queen of me, taking"
S851: "advantage of my honest endeavours."
S852: "-- Sir Thomas Browne, "Religio Medici" pt I"
S853: "A nice, - respectable, - middle class, middle-aged maiden"
S854: "lady, with time on her hands and the money to help her pass"
S855: "it... Let us call her Aunt Edna... Aunt Edna is universal,"
S856: "and to those who may feel that all the problems of the"
S857: "modern theatre might be solved by her liquidation, let me"
S858: "add that... she is also immortal."
S859: "-- Terence Rattigan, preface to the "Collected Plays""
S860: "I seemed to move among a world of ghosts,"
S861: "And feel myself the shadow of a dream."
S862: "-- Alfred, Lord Tennyson, "The Princess""
S863: "If the doors of perception were cleansed,"
S864: "everything would appear to man as it is, infinite."
S865: "-- William Blake"
S866: "Follow the instructions,"
S867: "tell us what you think:"
S868: "they lose something in translation,"
S869: "they might as well be written in invisible ink."
S870: "-- Peter Hammill, "Invisible Ink""
S871: "On a round ball"
S872: "A workman that hath copies by, can lay"
S873: "An Europe, Afrique and an Asia,"
S874: "And quickly make that, which was nothing, All."
S875: "-- John Donne, "Valediction: Of Weeping""
S876: "What you don't know would make a great book."
S877: "-- The Rev. Sydney Smith"
S878: "Sir Walter Elliot, of Kellynch-hall, in Somersetshire,"
S879: "was a man who, for whose own amusement, never took up"
S880: "any book but the Baronetage; there he found occupation"
S881: "in an idle hour, and consolation in a distressed one"
S882: "-- Jane Austen, "Persuasion""
S883: "I am the Love that dare not speak its name."
S884: "-- Lord Alfred Douglas, "Two Loves""
S885: "'I am inclined to think -' said I."
S886: "'I should do so,' Sherlock Holmes remarked"
S887: "impatiently."
S888: "-- Sir Arthur Conan Doyle, "The Valley of Fear""
S889: "Hell is a city much like London -"
S890: "A populous and a smoky city."
S891: "-- Shelley, "Peter Bell the Third""
S892: "I hope I shall never be deterred from detecting"
S893: "what I think a cheat, by the menaces of a ruffian."
S894: "-- Dr Johnson (a letter from 1775)"
S895: "Expatiate free o'er all this scene of man;"
S896: "A mighty maze! but not without a plan."
S897: "-- Alexander Pope, "An Essay on Man""
S898: "It's hard to be religious when certain people"
S899: "are never incinerated by bolts of lightning."
S900: "-- Bill Watterson, "Calvin & Hobbes""
S901: "Follow me, follow"
S902: "Down to the hollow"
S903: "And there let us wallow"
S904: "In glorious mud."
S905: "-- Flanders and Swann"
S906: "Zoe, logic merely enables one"
S907: "to be wrong with authority"
S908: "-- Dr Who, aboard "The Wheel In Space""
S909: "Then for as moche as a philosofre saith,"
S910: ""he wrappith him in his frend, that condescendith"
S911: "to the rightfulle praiers of his frend,""
S912: "therefore have I yeven the a suffisant Astrolabie"
S913: "as for oure orizonte, compowned after the"
S914: "latitude of Oxenforde;"
S915: "-- Geoffrey Chaucer, "A Treatise on the Astrolabe""
S916: "Upon a nyght in sleep as he hym leyde,"
S917: "Hym thoughte how that the wynged god Mercurie"
S918: "Biforn hym stood and bad hym to be murie."
S919: "His slepy yerde in hond he bar uprighte;"
S920: "An hat he werede upon his heris brighte."
S921: "-- Geoffrey Chaucer, "The Knight's Tale""
S922: "Benedick:"
S923: " To bind me or undo me, one of those."
S924: "-- Shakespeare, "Much Ado About Nothing""
S925: "In the central display case, there is a curious"
S926: "pottery model, either representing the Labyrinth"
S927: "of Minos or a water-cooling system."
S928: "-- W. J. Murnane's "Guide to Ancient Egypt""
S929: "I don't know who was there before me:"
S930: "One person, several, none;"
S931: "It doesn't matter."
S932: "There are marks on the slabs of rock,"
S933: "Some beautiful, all mysterious;"
S934: "Some certainly not made by human hands."
S935: "-- Primo Levi, "A Valley""
S936: "Evans is content once again."
S937: "The opening is securely wedged with the stone."
S938: "The opening is securely wedged with the prop."
S939: "the"
S940: "The model coffin is closed and throbbing with electric power."
S941: "A rather morbid gilded model coffin rests here."
S942: "A rather morbid gilded model coffin rests open here."
S943: "Mad Isaac's painting glares at you from just below the hook."
S944: "The flag is laid out on the bed as a blanket."
S945: "The god Apollo moves in mysterious ways, for another fig has appeared on
the tree."
S946: "Although he looks more of an acorn user, the squirrel sits watchfully
pecking away at the nuts."
S947: "You could just look inside the broken glass cabinet."
S948: "The church door is open."
S949: "The knight stands here, bowing toward Diana."
S950: "The knight stands clasping the flower."
S951: "The knight stands staunchly here."
S952: "The iron key, out of reach below, is glued somehow to the strange
stone."
S953: "Once the polar axis of a globe."
S954: "Instead, there is an astrolabe."
S955: "An amber gem gleams in the mouth of its face."
S956: "The sceptre projects from the first socket like a handle."
S957: "The sceptre projects from the second socket like a handle."
S958: "The sceptre projects from the third socket like a handle."
S959: "The great lid of the coffin is open."
S960: "a"
S961: "Made of terra-cotta and ceramic fragments, it has held together
surprisingly well."
S962: "Nothing there, but that cupboard looks interesting."
S963: "Decidedly unsteady."
S964: ""This viewpoint, one of the finest in the county, was laid down by
Capability Meldrew, a well-known landscape gardener of his day. It was intended
as one of the rewards of the garden maze, and was constructed c. 1808 after an
earlier folly on the site collapsed.""
S965: "Nightmarishly, even the floor you kneel on is a fallen tombstone."
S966: "The gist of the inscription is: "Henri Maladreue, obiit mcdlvi.""
S967: "The odd smell seems to be ozone, and it drifts up from a previously
concealed aluminium staircase."
S968: "Leading down."
S969: "The bottom corner is signed simply "Helene"."
S970: "One whole wall is an Impressionist mural painting of a yellow chair."
S971: "One whole wall is an Impressionist mural painting of lilies on a pond."
S972: "One whole wall is an Impressionist mural painting of a chateau in
Aix-en-Provence."
S973: "One whole wall is an Impressionist mural painting of nude bathers."
S974: "One whole wall is an Impressionist mural painting of a waitress at a
bar."
S975: "One whole wall is an Cubist mural painting of a woman with a plate of
fish on her head."
S976: "One whole wall is an abstract Cubist mural painting."
S977: "One whole wall is an Pre-Raphaelite mural painting of the Virgin Mary
looking up at the light."
S978: "One whole wall is an Impressionist mural painting of a woman with a
parasol."
S979: "One whole wall is an pointillist mural painting of a scene in a park by
a lake."
S980: "The lawn is lightly coated with broken plaster and dust, and in the spot
where the statuette once stood is a dark, ancient well."
S981: "You can make out nothing below, and the well is too small to climb
down."
S982: "Prominent amongst these is a plaster statuette, a bust of a woman."
S983: "It stands four feet high. At the base is an engraving: "Self-Portrait,
H.M. '54". (It's presumably not by Her Majesty the Queen, though.)"
S984: "the old"
S985: "Mounted on a plaque is an old sepia photograph of a man."
S986: "The photograph is one of the very early ones which looks as if it was
taken in the dark because the chemicals have gradually oxidised. The poor man
in the frame (Mr Roger Meldrew, Esquire) looks as if he was propped up by a big
clamp to hold him still for five minutes, and that's because he was."
S987: "Amid the glass wall is an iron panel divided into a three-by-five grid.
Behind the glass is a kind of see-saw of two leather baskets at opposite ends
of an oak pivot.
Projecting out of the back of the panel mechanism is a metal hand, which
In one corner of the roof, above the other end of the see-saw, is a ."
S988: "Particularly prominent are a large dial, like the volume control on an
expensive hi-fi amplifier, and a big electrician's switch. Both are labelled in
small print."
S989: "Above the dial is a lower-case letter h with a slashed line through it.
It is currently turned to 1.055 or thereabouts. There is something worryingly
dangerous about its matter-of-factness."
S990: "Through the square window in the door you can see a bar at which staff
are serving, and a very crowded and lively cafe-restaurant beyond. The cabaret
act has her back to you, and a considerable amount of her front to the diners."
S991: "The joint on the water pipe looks none too sturdy."
S992: "The decorated strip of entablature between the architrave and the
cornice, in the Attic style circa fifth century B.C.
Well, you did ask."
S993: "Beside the table is a more substantial adviser, as if she too walks in
this strange spirit plane. She is wearing frightening druidical robes, of
strange pelts and furs, with nasty-looking charms around her neck. Every so
often, she seems to catch sight of you out of the corner of her eye, but then
look round and see nothing. The military men do not believe in her power, and
yet... they treat her with respect."
S994: "Nine times she waved the fluttering wimple round,"
S995: "And made a little plot of magic ground."
S996: "And in that daisied circle, as men say,"
S997: "Is Merlin prisoner till the judgement day..."
S998: "-- Matthew Arnold, Tristram and Iseult III (1852)"
S999: "Curses are like young chickens,"
S1000: "they always come home to roost."
S1001: "-- Robert Southey (1774-1843),"
S1002: " "The Curse of Kehama""
S1003: "Let Rome in Tiber melt, and the wide arch"
S1004: "Of the ranged empire fall! Here is my space."
S1005: "Kingdoms are clay."
S1006: "-- Shakespeare, "Antony and Cleopatra" I:1"
S1007: "The wireless fills the air with Jemima's favourite station,
"Mild-n-Breezy FM", about which the least said the better."
S1008: "Definitely mollified."
S1009: "Diana's tall marble statue bathes in the moonlight: and a flower is
placed gaily in her hair."
S1010: "Apollonius and Callimachus are now engaged in a furious, ugly brawl,
from which it seems unlikely they will emerge for some considerable time."
S1011: "Apollonius and Callimachus are having a furious, heated, endless
argument about something. They seem well practised at this occupation."
S1012: "Homer sits half-awake, clutching his syrinx."
S1013: "The timber prop leans against the tottering Folly, supporting it."
S1014: "There are paths only west and northwest."
S1015: "Homer is asleep again, his syrinx tight in his arms."
S1016: "Homer glares at you through sightless eyes."
S1017: "Instructions"
S1018: "How to play Curses"
S1019: "Credits"
S1020: "Release Notes"
S1021: "Legal Niceties"
S1022: "About Inform"
S1023: "Archive"
S1024: "A treasure in every sense, the orb pulsates with golden radiance."
S1025: "The medicine bottle, alas, was undamaged by the fall down the chimney."
S1026: "A cave carved from crystal icicles of rock and glowing with vivid,
golden light, so bright it almost hurts your eyes. A narrow crevice opens out
to an iron doorway and the relative darkness of the house.
The rough stone floor levels out to a perfectly round, smooth white marble disc
about five yards across, inscribed with a black lemniscus (or infinity)
symbol."
S1027: "Answer"
[End of text]
[End of file]
(.txt)
(.txt)